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ABSTRACT 

This  report  contains  user  instructions  and  program  listings 
for  a  Loran-C  position  determination  algorithm  for  use  on  an 
Hewlett-Packard  HP-75C,  a  Sharp  PC-1500  (Radio  Shack  TRS-80  PC-2) 
and  a  Radio  Shack  Model  100  portable  computers. 


I.  INTRODUCTION 


This  report  contains  a  Loran-C  position  determination  program 
for  each  of  the  following  portable  computers:  the  Hewlett-Packard 
HP-75C,  the  Sharp  PC-1500  (Radio  Shack  TRS-80  PC-2)  and  the  Radio 
Shack)  TRS-80  Model  100.  These  programs  are  part  of  a  set  that  has 
been  developed  for  a  portable  computer  evaluation. 

The  Loran  system  is  a  radio  aid  to  navigation  which  utilizes 
the  principle  of  hyperbolic  fixing.  The  locus  of  points  for  which 
the  difference  in  arrival  time  of  synchronized  signals  from  a  pair 
of  transmitters  is  constant  determines  a  hyperbolic  line  of 
positions.  The  intersection  of  two  hyperbolic  lines  of  position 
from  two  pairs  of  stations  determines  a  hyperbolic  fix.  That  two 
pairs  of  stations  are  required  for  a  fix  does  not  necessarily  mean 
that  there  are  four  separate  stations,  for  one  station  of  one  pair 
may  be  colocated  with  one  station  of  the  other  pair  forming  a 
Loran  triplet.  Triplets  may  be  joined  "end-to-end"  by  station 
colocation  to  form  a  Loran  chain.  Loran  chains  are  common  on  both 
the  East  and  West  coasts  of  the  North  American  continent. 

The  present  day  Loran-C  operates  at  100-kHz  and  is  in  use  in 
the  Atlantic,  Pacific  and  Mediterranean  areas.  The  computational 
programs  described  herein  can  be  used  for  position  determination 
with  Loran-C  triplets.  Further  information  on  the  history, 
development  and  operation  of  the  Loran  systems  may  be  found  in 
References  1  and  2.  Details  of  the  fixing  algorithm  can  be  found 


in  Reference  3 


In  the  programs  presented  here,  there  are  ten  user  options. 
The  computer  display  abbreviations  for  the  option  names  and  their 
definitions  are  listed  below. 

1.  LORAN  fix.  This  fixing  routine  is  the  main  program  for 
calculating  a  LORAN-C  fix  from  indicated  time  delays  (ITDs). 

2.  ALTERNATE  SOLN.  The  alternate  solution  routine  will  allow 
the  second  LORAN-C  fix  solution  to  be  computed.  This  routine 
toggles  an  alternate  solution  flag  so  that  on  subsequent 
fixes  Option  1  will  calculate  the  alternate  solution. 

3.  INPUT  PEST  LAT/LONG.  This  option  is  used  to  store  the 
latitude  and  longitude  of  a  destination. 

4.  HEAD  &  DIST  TO  PEST.  This  option  is  used  to  compute  the 
heading  and  distance  from  the  currect  fix  to  the  destination 
stored  by  Option  3. 

5.  PREDICT  ITDs.  This  option  may  be  used  to  predict  the 
station  ITDs  that  will  be  received  at  a  given  latitude  and 
longitude. 

6.  TWO  POINT  HEAD  &  DIST.  This  option  is  similiar  to  Option  4 
except  that  it  may  be  used  to  compute  the  heading  and 
distance  from  any  origin  to  any  destination. 

7.  CALIBRATE.  Given  the  latitude  and  longitude  of  a  benchmark 
position  and  the  indicated  time  delays  from  a  LORAN-C 
triplet  received  at  the  benchmark  position,  the  stored 
station  data  are  modified  so  that  the  fix  routine  (or 
alternate  solution  routine)  will  compute  the  known  position 
from  the  same  time  delays. 
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8.  NEW  STA.  IDs.  This  option  is  used  to  load  the  two  station 
pairs  being  received  by  requesting  the  group  repetition 
interval  (GRI)  identifier. 

9.  ASF  Corrections.  When  a  portion  of  the  propagation  path 
lies  over  land,  the  additional  secondary  factor  (ASF)  should 
be  included  in  the  observed  time  delay  if  precision 
navigation  is  required.  This  option  allows  the  user  to  input 
the  ASF  correction  [Ref.  4,  5], 

A.  STOP.  This  option  will  exit  from  the  LORAN-C  routine. 

An  additional  HELP  option  (H)  is  available  in  the  Hewlett- 
Packard  HP-75C  and  Sharp  PC-1500  (TRS-80  PC-2)  computers.  This 
option  will  review  the  ten  options  in  the  display.  The  Radio  Shack 
TRS-80  Model  100  does  not  have  this  option  because  all  ten  options 
can  be  displayed  simultaneously. 
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II.  THE  HEWLETT-PACKARD  HP-75C. 


HP-75C  USER  INSTRUCTIONS. 


The  options  are  labeled  1  through  9,  A  or  H.  The  H  (Help)  option 
will  review  options  1  -  9  &  A.  Option  6  (TWO  POINT  HEAD  &  DIST)  is 
a  stand-alone  option  which  may  be  used  by  itself.  For  LORAN 
fixing.  Option  8  must  be  selected  first  to  load  the  station  GRl's. 
If  Option  8  is  not  used,  then  any  option  requiring  the  GRl's  will 
automatically  enter  Option  8  first.  Option  1  (LORAN  FIX)  must  be 
selected  at  least  once  before  Option  2  (ALTERNATE  SOLN)  can  be 
selected.  Once  the  GRl's  are  loaded,  any  of  the  remaining  options 
may  be  used  at  any  time.  When  first  run,  the  ASF  Correction 
Factors  are  set  to  zero;  if  they  are  subsequently  entered  as 
non-zero  values  they  will  remain  set  until  either  changed 
manually,  by  selection  of  Option  9,  or  until  the  program  is  RUN 
once  more.  In  all  cases,  South  latitudes  and  East  longitudes  must 
be  negative  for  input  and  will  be  labeled  by  a  minus  sign  '-'  on 
output.  For  ease  of  reference  the  options  are  listed  by  number 
rather  than  by  sequence  of  selection. 


INSTRUCTION 

DISPLAY 

INPUT 

Run  Program 

NEXT  OPTION  (iielp)  ? 

Run  "LORAN" 

1.  LORAN  FIX 

1 

ITD  for  1st  GRI 

ITD  FOR  gri  1? 

1st  ITD  [ RTN] 

ITD  for  2nd  GRI 

ITD  FOR  gri  2? 

2nd  ITD  [RTN] 

Lat  of  fix 

LAT  =  dd°mm'ss" 

[RTN] 

Long  of  fix 

LONG  =  ddd°mm'ss" 

NEXT  OPTION  (iielp)  ? 

[RTN] 

2.  ALTERNATE  SOLN 

2 

Lat  of  fix 

LAT  =  dd°mm'ss" 

[RTN] 

Long  of  fix 

LONG  =  ddd°mm' ss" 

NEXT  OPTION  (Help) ? 

[RTN] 

3.  INPUT  DEST  LAT/LONG 

3 

DEST  LAT  dd.mmss? 

Lat  of  dest. 
[RTN] 

DEST  LONG  ddd.mmss? 

NEXT  OPTION  (Help)? 

Long  of  dest. 
[RTN] 

4.  HEAD  &  DIST  TO  DEST 

4 

Heading  to  dest. 

HEADING  =  dd°mm ' ss " 

[RTN] 

Dist.  to  dest. 

DISTANCE  =  mmm.ff  n.mi. 
NEXT  OPTION  (Help)? 

[RTN] 

HP-75C  USER  INSTRUCTIONS  (cont.) 


INSTRUCTION 

DISPLAY 

INPUT 

5.  PREDICT  ITDs 

1st  ITD 

2nd  ITD 

LAT  dd.mmss? 

LONG  ddd.mmss? 

ITD  FOR  gri  ±  = 
xxxxx.xx  US 

ITD  FOR  ai_i__2  = 
xxxxx.xx  vs 

Hew  Lat/Lon  or 

Return  to  menu  N 

R 

NEXT  OPTION  (Help)? 

5 

Lat  [ RTN] 

Long  [RTN] 

[RTN] 

[RTN] 

repeats  Option  5 
goes  to  next  line 

6.  TWO  POINT  HEAD  & 

DIST 

ORIGIN  LAT  dd.mmss? 

6 

Lat  of  origin 
[RTN] 

Long  of  origin 
[RTN] 

Lat  of  dest. 

[RTN] 

Long  of  dest. 

[RTN] 

[RTN] 

[RTN’ 

ORIGIN  LONG  ddd.mmss? 

Heading  to  dest. 
Dist.  to  dest. 

DEST  LAT  dd.mmss? 

DEST  LONG  ddd.mmss? 

HEADING  =  dd°mm'ss" 
DISTANCE  =  mmm.ff  n.mi. 
NEXT  OPTION  (Help)? 

7.  CALIBRATE 

LAT  dd.mmss? 

LONG  ddd.mmss? 

ITD  for  axi-1? 

ITD  FOR  qri_2? 

NEXT  OPTION  (Help) ? 

7 

Lat  of  fix  [RTN] 
Long  of  fix  [RTN] 
1st  1 2D  [RTN] 

2nd  ITD  [RTN] 

8.  NEW  STA.  IDS 

1st  GRI? 

2nd  GRI? 

NEXT  OPTION  (Help)  ? 

8 

Sta.  ID  [RTN] 

Sta.  ID  [RTN] 

9.  ASF  Corrections 

ASF  FOR  SULLJ.? 

ASF  FOR  qri  2? 

NEXT  OPTION  (Help)? 

9 

1st  ASF  [RTN] 

2nd  ASF  [RTN] 

A.  STOP 

A 

HP-75C  SAMPLE  PROBLEM  1 


You  are  sailing  off  of  the  coast  of  California.  Your 
destination  is  Moss  Landing  at  about  36°48'N  and  121°47'W.  Your 
present  ITD  from  station  pair  GRI  9940W  is  16019  and  your  ITD  from 
station  pair  GRI  9940Y  is  42585.  What  is  your  current  position  and 
what  is  the  heading  and  distance  from  your  current  position  to 
Moss  Landing?  We  assume  that  the  GRI ' s  9940W  and  9940Y  have  not 
yet  been  loaded. 


DISPLAY  CONTENTS  USER  RESPONSE 


COMMENTS 


NEXT  OPTION  (Help)? 
DEST  LAT  dd.mmss? 
DEST  LONG  ddd.mmss? 


3 

36.48  [ RTN] 
121.47  (RTN] 


Input  destination. 
36  °  4  8 ' 

121 °  47  ' 


NEXT  OPTION  (Help) ? 
1st  GRI? 

2nd  GRI? 


8  Input  station  ID’s. 

9940W  [RTN] 

9940 Y  [RTN] 


NEXT  OPTION  (Help) ? 
ITD  FOR  9940W? 

ITD  FOR  9940 Y? 

LAT  =  39°14'19" 

LONG  =  115° 50' 52" 


1 

16019 

42585 

[RTN] 

[RTN] 


Compute  a  fix. 


Latitude  of  fix. 
Longitude  of  fix. 


This  fix  is  in  Nevada.  There  are  always  two 
solutions  to  the  LORAN  equations.  The  navigator 
must  select  the  correct  one. 


NEXT  OPTION  (Help)?  2 

LAT  =  35° 00' 01"  [RTN] 

LONG  =  125° 00' 09"  [RTN] 


Select  alternate  soln. 
Latitude  of  fix. 
Longitude  of  fix. 


This  fix  is  in  the  Pacific.  The  navigator 
knows  it  is  the  correct  fix  because  of  his 
estimate  of  where  he  should  be. 


NEXT  OPTION  (Help)?  4 

HEADING  =  54° 34' 11"  [RTN] 

DISTANCE  =  190.38  n.mi.  [RTN] 


Find  heading  &  distance 
to  destination. 

Heading  to  Moss  Landing. 
Distance  to  Moss  Landing. 


NEXT  OPTION  (Help)? 


Repeat  with  new  option 
or  press  A  to  quit. 


HP-75C  SAMPLE  PROBLEM  2 


How  far,  and  in  what  direction,  is  Corvallis,  Oregon 
(44°34'N,  123°16'W)  from  Cupertino,  California  (37°19'N, 
122°  02  'W)  ? 


DISPLAY  CONTENTS 


USER  RESPONSE  COMMENTS 


NEXT  OPTION  (Help)? 


6 


ORIGIN  LAT  dd.mmss? 
ORIGIN  LONG  ddd.mmss? 
DEST  LAT  dd.mmss? 

DEST  LONG  ddd.mmss? 
HEADING  =  353  02’ 59" 
DISTANCE  =  438.32  n.mi. 


37.19  [ RTN ] 
122.02  [RTN] 
44.34  [RTN] 
123.16  [RTN] 
[RTN] 
[RTN] 


Two  point  distance 
and  heading. 

37  ° 19 ' 

122° 02' 

44° 34' 

123° 16  ' 


NEXT  OPTION  (Help) ? 


Repeat  with  new  option 
or  press  A  to  quit. 


HP-75C  SAMPLE  PROBLEM  3 


Suppose  that  you  want  to  know  what  ITD ' s  you  would  expect  to 
receive  at  35°  North,  125°  West  and  at  36° 27'  North,  126° 54'  West 
from  9940W  and  9940Y.  To  determine  these  ITD's,  proceed  as  follows 
(assume  that  the  GRI ' s  have  been  loaded  as  in  Sample  Problem  1): 


DISPLAY  CONTENTS 


USER  RESPONSE 


COMMENTS 


NEXT  OPTION  (Help) ? 

LAT  dd.mmss? 

LONG  ddd.mmss? 

ITD  FOR  9940W  =  16019.35 
ITD  FOR  9940 Y  =  42584.71 
Hew  Lat/Lon  or 

fieturn  to  menu? 
LAT  dd.mmss? 

LONG  ddd.mmss? 


ITD  FOR  9940W  =  15572.32 
ITD  FOR  9940Y  =  43006.15 
Hew  Lat/Lon  or 

Eeturn  to  menu? 


us 

us 


us 

us 


5 

35  [RTN] 

125  [RTN] 
[RTN] 

[RTN] 

N 

36.27  [RTN] 
126.54  [RTN] 
[RTN] 

[RTN] 

R 


Predict  ITD's. 
35° 

125° 


36°  27  ' 
126°  54' 


NEXT  OPTION  (Help)? 


Repeat  with  new  option 
or  press  A  to  quit. 


HP-75C  SAMPLE  PROBLEM  4 


Suppose  you  are  receiving  an  ITD  of  16308  from  9940W  and 
42800  from  9940Y.  These  ITD's  would  tell  you  that  your  location  is 
36 ° 47 ' 55 "N  and  121°47'11"W.  However,  you  know  that  your  position 
is  benchmarked  to  be  at  36°47'36"N  and  121°46'58"W,  and  you  wish 
to  calibrate  your  HP-75C  so  that  the  ITD's  of  16308  and  42800  will 
give  you  the  latter  fix  instead  of  the  former.  Proceed  as  follows 
(assume  the  GRI ' s  have  been  loaded  as  in  Sample  Problem  1): 


DISPLAY  CONTENTS  USER  RESPONSE 


COMMENTS 


NEXT  OPTION  (Help) ? 
LAT  dd.mmss? 

LONG  ddd.mmss? 

ITD  FOR  9940W? 

ITD  FOR  9940 Y? 


7 

36.4736  [RTN] 
121.4658  [RTN] 
16308  [RTN] 
42800  [RTN] 


Calibrate. 

36° 47 '36" 
121 °  45 ' 58" 


The  station  baselines  have  now  been  modified  to 
achieve  calibration.  Now,  reenter  16038  and  42800  into 
the  fixing  routine  to  test  the  calibration.  Calibration 
does  not  modify  the  permanent  station  data  stored  in  the 
HP-75C.  The  calibration  remains  effective  until  the 
GRI ' s  are  reloaded  by  Option  8.  NOTE:  The  affect  of 
calibration  on  the  accuracy  of  fixes  far  removed  from 
the  benchmark  has  not  been  studied.  The  user  should  use 
the  calibration  option  with  caution. 


DISPLAY  CONTENTS  USER  RESPONSE 


COMMENTS 


NEXT  OPTION  (Help)? 
ITD  FOR  9940W? 

ITD  FOR  9940 Y? 

LAT  =  36° 47 *35" 

LONG  =  121° 46' 59" 


1 

16308  [RTN] 
42800  [RTN] 
[RTN] 
[RTN] 


Compute  a  fix. 


Lat  of  fix. 
Long  of  fix. 


The  small  discrepancy  between  this  fix  and  the 
benchmark  is  due  to  assumptions  in  the  fixing  algorithm. 
If  higher  precision  is  required,  the  ASF  Correction 
factor  may  be  used  (see  Sample  Problem  5).  Note  that  you 
may  need  to  use  the  Alternate  Solution  Option  2  if  the 
fix  obtained  above  is  near  38°52'57"N  and  116°51'11'W. 


DISPLAY  CONTENTS  USER  RESPONSE  COMMENTS 


NEXT  OPTION  (Help) ? 


Repeat  with  new  option 
or  press  A  to  quit. 


HP-75C  SAMPLE  PROBLEM  5 


Suppose  you  are  receiving  an  ITD  of  12153.31  microseconds 
from  9960W  and  44451.83  microseconds  from  9960Y.  These  ITD's  would 
tell  you  that  your  location  is  44°15'05"N  and  67°25'23"W.  Entering 
the  ASF  Correction  Tables  [Ref.  5,6]  with  these  readings,  the  ASF 
Correction  for  GRI  9960W  at  44°15'N  and  67°25'W  is  1.5  micro¬ 
seconds.  Similiarly,  the  ASF  Correction  for  GRI  9960Y  at  these 
coordinates  is  2.7  microseconds.  Enter  these  corrections  into  your 
HP-75C  and  recompute  your  position.  (Load  the  GRI 1 s  9960W  and 
9960Y  using  Option  8). 


DISPLAY  CONTENTS 


USER  RESPONSE 


COMMENTS 


NEXT  OPTION  (flelp) ? 
ASF  FOR  9960W? 

ASF  FOR  9960Y? 

NEXT  OPTION  (Help)? 
ITD  FOR  9960W? 

ITD  FOR  9940 Y? 

LAT  =  44° 15 ’26" 

LONG  =  67° 26  ’26" 

NEXT  OPTION  (Help) ? 


9 

1.5  [ RTN] 

2.7  [RTN] 

1 

12153.31  [RTN] 
44451.83  [RTN] 
[RTN] 

[RTN] 


ASF  Correction. 


Compute  a  fix. 


Repeat  with  new  option 
or  press  A  to  quit. 


These  ASF  Corrections  have  been  entered  into  the 
computer.  The  range  of  their  validity  must  be  checked 
with  the  ASF  Correction  tables  and  reentered  if  they 
change.  NOTE:  If  you  are  using  the  ASF  Correction  Tables 
and  if  you  wish  to  calibrate  to  a  benchmark  position, 
you  should  first  enter  the  ASF  Corrections  for  your 
benchmark  and  then  use  the  calibration  Option  7  (see 
Sample  Problem  4). 
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HP-75C  PROGRAM  LISTING 


10  RE"  LOJWK  ROUTINE, 
rev  07-08-83.  1330  HOUR? 

28  H9=15  0  REN  M9=»  0-  " 
ASTER  STATION? 

30  OPTION  UNCLE  RAMAN? 

0  OPTION  8ASE  1 

40  BEF  FNR(X.H)  =  INT<N» 

X*.5V0 

50  C8=l '298.26  0  A0=-I  0 
Glf=*  • 

60  DEC  FHpTT)  =  129.043- 
8/T-. 40758*. 00064576438* 

T 

70  BEP  FN9H>  =  2.741297 
9'T-. 01 1402*. 00032774624 

*T 

80  MSP  0  GOTO  120 
90  CMtEY*  0  IF  C4='  ‘  P 
EN  90 

100  C4=UPPC4(C4)  0  FOR  C 
=1  TO  LEN(C84>  0  IF  C4=C 
04IC.CI  THEN  BISP  0  RETO 
RN 

110  NEXT  C  0  GOTO  90 
120  MSP  -NEXT  OPTION  C 
,CHR4(200>;  'elpP'  0  C84 
=  ' 123456789AN'  0  GOSUB  9 
0 

130  ON  C  GOSUB  910.950,1 
018.1048.1090,998,1200.1 
90,1350,530.140  8  GOTO  1 
20 

140  BISP  M  -  10RAN  FIX' 

0  1ISP  '2  -  ALTERNATE  S 
OLN-  8  MSP  '3  -  INPUT  B 
EST  LAT/LONG- 
158  MSP  '4  -  HEAD  I  MS 
T  TO  BEST'  8  MSP  '5  -  P 
REBICT  MBs' 

160  BISP  '6  -  THO  POINT 
HERB  t  BIST'  8  BISP  '7  - 
CALIBRATE' 

178  BISP  '8  -  HEN  STA.  I 
B*'  0  BISP  '9  -  ASF  Corr 
ections'  0  BISP  'A  -  STO 
P- 


180  RETURN 

182  PEN  OpT  8 

185  IE  G!4<V '  THEN  RETU 

RN 

190  F0=1  0  N=1  0  INPUT  • 
1st  GRP  vl$ 

200  GOSUB  380  0  GOSUB  39 
0  0  IF  F0=2  THEN  190 
210  E0=1  0  N=2  0  INPUT  * 
2nd  GRP  *,  14  0  GOSUB  3 
88 

228  IF  Ai= I 94  THEN  GOSUB 
470  ELSE  240 
238  P  F8=!  THEN  258 
248  GOSUB  398  8  IF  F8^2 
THEN  218 

250  EM  0  Fp=i  0  IP  C14 
-C24  THEN  380 
268  IF  P<l.l>sP<l,2>  AN  I, 
L<  1  ■ ! >=LT  1  .?•>  THEN  318 
278  E2--1  0  IP  P(1,1>=P." 
2,2)  AND  L(1,P=L(2,2)  T 
HEN  710 

2B0  F|=-i  0  ip  P(2.n=p( 
2,2)  AND  K2,t>=L<2.2>  T 

HEN  718 

290  F2rl  0  IF  P(2,D=Ptl 
•2)  AND  L(2, I )=L(1  2‘  TN 

EN  310 

300  MSP  -E.  NO  TRIPLET 
*,C14.*  t  ‘ ,G?4  0  GOSUB 
1370  0  GOTO  198 
310  FOR  PI  TO  2  0  P1=P< 

1.1)  0  L1=L< 1 • I)  0  P2=P( 

2.1)  0  L2-L(2, I) 

320  BISP  0  GOSUB  330  0  N 
EXT  I  0  G(1)=0  0  G(2>=0 
0  RETURN 

330  GOSUB  650  #  B(P=S0 
0  2(1.1  >=21  0  Z(2.P-?2 


340 

T= 

21282.; 

J593*S8 

350 

IF 

T>=537  THEN  P=FNP 

(T) 

360 

IF 

T  <537 

THEN  P=EHG< 

T> 

378 

TfJ)=T*P 

0  RETURN 
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HP-75C  PROGRAM  LISTING  (cont.) 


38*  l=LEN( 14'  *  DMfll, 
L-1J  *  84=1*11. LJ  *  B=NU 
H(B4>  *  Bi=CHR4(B-32*<B) 
9*))  0  RETURN 
38*  N8=l  *  RESTORE 
4**  READ  I94,H*,P0,L0  * 
«=•• 

41*  FOR  1=1  TO  N0  *  READ 
H*$.W(1),P1(I)A1(P  * 
H4=«*t«*4  *  HEX,  1 
42*  IF  1944P4  THEN  45* 
43*  CDSU8  47*  *  IF  F*=2 
THEN  4*0 
440  RETURN 
45*  N8=N8+I  *  IF 
THEN  40* 

46*  131 SP  I*.-  IS  NOT  COT 
RLOCEB-  *  F0^2  *  GOSUE:  l 
370  0  RETURN 

47*  FOR  1=1  TO  N0  0  IF  N 

tn.n=e$  then  490 

48*  NEXT  I  *  F*=2  0  RETU 
RN 

490  IF  H=1  THEN  G14=It 
50*  IF  H=2  THEN  G24=I* 
510  B<N)=D9(I>  0  PCI  H>= 
FHP<RfiD'FNH<P0»)  0  Ld  • 
N>=RflB(FNH(L0)) 

520  P(2,H)=FNO(Rfl8(FNH<P 
HI))))  *  L<2,N)=RAB<FHH 
(L1CI)))  0  RETURN 
538  DISP  0  PUT  CHR*(13> 

0  END 

540  REN  MR  SOLN 
55*  Z8=SIN(ZD  0  Z9=C0S( 
Zl)  *  P8=SIN(P1)  *  P9=C0 
S(P1)  *  N=-Z8*P8  *  C1=C0 
*8  *  C2=C**(l-fW1)/4 
5*0  B-(1-C2)»(1-C2-C1»N) 
0  P=C2*U'HM*H/2HB  0  N 
=P9*Z9 

57*  Sl=flNGlE(P8,N)  0  D0= 
S*/B  I  U=2«(S1-M)  0  N=1 
-2*P*C0S(U)  *  V=COS(U+D* 
) 


580  X=C?*C?*SIN<B0)*rOS' 
|**(2*V*V-1 ))  0  Y=2*P*V* 
IMSIH(D0) 

59*  S2=D*»X-Y  0  S8=S1N(S 
2)  *  S9=C0S(S2)  *  F=SOP^ 
MH<H*S9-P8*S8>A2> 

***  P?=flTN<(P**S9+H*S8>/ 
K> 

*1*  S3=fiHGLE(P9*S9-P8*S? 
♦Z9,-S8*Z8> 

*20  H=C1*CI-C2>*S2-C1*C2 
*S8*C0S(S1+S1-S2)  *  L2=L 
1+S3-H 

*3*  Z2=fWGLF'-<N*S9-P8*S 
8>,-N>  0  RETURN 
*48  PEN  REVERSE  SOLN 
65*  L3=L2-ll  0  P3=CP2-P1 
)/2  0  R4=(Pl+P2)/2 
6*0  P*=SINfP3>  0  P7=C0S( 
P3)  0  P8=SIN<P4)  0  P9=C0 
S(p4) 

67*  (feP7*P?-pft*P8  0  L^P* 
•P*+H*SIN(L3/2)A2  *  D0=2 
•flSIN(SOPa)) 

688  U=2*P8*P8*P7*P7/M-L 
)  0  v=2*P6»P**P9*P9/L  0 
X=U+V  0  Y=U-V  *  T=D0/SIN 
(B*>  0  p=4*T*T 
*9*  E=2*COS(B0)  0  0=D*E 
*  C=T-(fi-E)/2  0  N1=X*<P+ 
C*X>  0  B=B+B  0  H2=Y*(B+E 
*Y>  0  N3=8*X*Y 
7**  D2=C«*C0*fNl-N2+N3)/ 
64  *  Jl=C**(T*X-Y)/4  0  S 
*=(T-M+J2)*SIN(W) 

71*  H=32*T-(2**T-R)*X-(B 
♦4>*Y 

72*  F=Y+Y-E»(4-X)  0  G=C* 
*<T/2+C**N/*4)  0  B=-F*G* 
TBNCL3)/4 

73*  L4=(L3m)/2  0  L8=SIN 
(L4)  *  L9=C0S(L4) 

74*  T1=ANGIE<P9*18,P6*L9 
)  *  T2=PHGIE(P8*L8,-P7*L 
9) 
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HP-75C  PROGRAM  LISTING  (cont.) 


758  T9=PI+PI  0  21=«0B(T1 

♦T2.T9)  0  Z2=*»m-T2,T 

9)  8  RETURN 

768  REN  FIXING  ROUTINE 

770  A1=F1*SIN«K1»  9  Bt 

=COS«K1»-COS<BU))  9  C 

t=SIN(B(D) 

780  ft2=F2*SIH<«<2)>  9  B2 
=C0S<»<2))-C0S<B<2)>  9  C 
2=SIN(B<2)) 

790  E1=Z<1,1>  9  IF  Fl=-1 
TNEN  E1=Z(2.1) 

800  E2=Z<1.2)  0  IF  F2=-t 
THEN  E2=Z(2.2) 

810  C=81*C2*C0S<E2>-B2*C 
1*C0S(E1>  0  S=B1*C2*SIN< 
E2)-82*C1*SIN(C1) 

820  X=62*fll-BI*fi2  0  R=SC 
R(C*C*S*S)  0  G=«NGL£<C,S 
) 

830  Z=G*fl8#«C0S<K/R>  9  $ 
8=flNGLE<C2*COS<Z-E2Hfl2. 
B2) 

848  IF  F2=l  THEN  P1=P0. 
21  0  Ll=l(l .2) 

850  IF  F2=-l  THEN  P1=P<2 
,2)  0  L1=L(2.2) 

860  Z!=Z  0  GOSUB  550  9  P 
0=P2  0  18=L2  0  P=flTN(T«N 
(PO)/(1-C0)) 

870  P=BEG(P)  0  L=HOD(IEG 
(L8).360)  0  IF  L>180  THE 
N  L =1*368 

880  P*=FNP*<P)  0  l$=FNBI 

(L> 

890  BISP  -LBT  =  *;P*  0  G 
OSUB  1370  0  BISP  ’LONG  = 
•;Lt  0  GOSUB  1378  0  RET 
URN 

900  REN  OPT  1  *  CONFUTE 
FIX 

910  GOSUB  185  0  FOR  1=1 
TO  2  0  G$=Gl*  0  IF  1=2  T 
HEN  G#=G2F 


928  BISP  -ITU  FOR  '.G*. 

0  INPUT  “>  •}  0  0  R=ft+G( 
I>-B(I>-T(I)  0  IF  RBS(fl) 
<T(P  THEN  948 
938  BISP  *E.  ITB  NOT  WL 
IB  FOR  -;G*  0  GOTO  928 
948  (HI)=fl/21295.8736  8 
NEXT  I  0  GOSUB  770  0  RET 
URN 

958  IF  00=1  THEN  08=*1  9 
GOTO  965 
968  08=1 

965  IF  Gl*=‘ '  THEN  918 
978  GOSUB  778  0  RETURN 
988  REN  OPT  6 
998  INPUT  -ORIGIN  LfiT  do 
.ms s’  *;  P  8  INPUT  "OR! 
GIN  LONG  drfd.Mss’  ‘;L 
1008  PO=FNR(ROB(FNH(P>)> 
8  LO=ROB(FNH(L))  0  GOSU 
B  1018  0  GOSUB  1048  8  RE 
TURN 

1810  INPUT  -BEST  LRT  dd. 
ms s">  -  P  0  INPUT  'BEST 
LOW;  tWd.w«s'>  ";L 
1028  PS=FN«(ROB(FNHfPm 
0  15=RW(FNH<1>)  0  PETIJ 
RN 

1038  REN  OPT  4 
1040  PI =P8  0  L1=L8  0  P2= 
P5  0  L2=L5  0  GOSUB  650 
1858  Z=NO1(!EG(Z1>f360> 

0  Z*=FNB*(Z) 

1068  BISP  -HERBING  =  ’;Z 
»  0  GOSUB  1370  0  BISP  "B 
ISTRNCE  =  -;FNR(3443.917 
•SO. 100);*  n.tu." 

1078  GOSUB  1370  0  RETURN 
1080  REN  OPT  5 
1090  GOSUB  185  9  COSUB  1 
170  0  FOR  K=1  TO  2  0  19= 
TtKHBOO 

1100  P2=P(2.K>  0  L2=L(2. 
K)  0  GOSUB  650  0  1=3  0  G 
OSUB  340  0  I9=19+T(3> 
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HP-75C  PROGRAM  LISTING  (cont.) 


1118  P?=P(l,IO  8  L2-l( 1 , 
10  I  C0SU8  658  8  1=3  8  G 
OSUB  348  8  19=19-T<31 
1128  l$=Cl*  8  IF  K=2  THE 
8  I*=G2$ 

1138  BISP  -IT*  FOR 

*  =-;FNR(I9,I88>,CHR*<12 
);*s*  8  COS OB  1370  0  HEX 
T  t 

1148  BISP  CHR4(206);Vw 
Lat/Lon  or  -;CHRt(210l;‘ 
eturo  to  floou’*  0  C0*=’H 
P-  0  COSUP  98 
1150  IF  C=t  TH€H  1898 
1160  RETURN 

1170  INPUT  ‘LPT  dd.MSi’ 
•;  PI  0  INPUT  -LONG  664 
.miss’  *;L1 

1180  P1=FNP(RPB(FHH<P1 ) > 
l  0  ll=RRF(FNH(ll))  8  RE 
TURN 

1190  REN  OPT  7 
1288  GOSUB  185  8  GOSUB  1 
178  0  FOR  K=1  TO  2  8  lt= 
Cl»  0  IF  K=?  THEN  I*=G24 
1210  BISP  -IT*  FOR  *;!$• 
0  INPUT  ">  19  0  19=1 

9-BOO 

1228  P?=P(2.r)  8  L2=L<2, 
K)  8  GOSUB  658  0  1=3  0  C 
OSUB  348  8  !9=!9-T(3> 
1230  P2=P(1.K>  0  12=1(1, 
10  0  COSUB  658  0  1=3  0  G 
OSUB  348  0  TOO=I9+T(3>+ 
G<r> 

1248  NEXT  X  0  RETURN 
1258  1€F  FNH(X) 

1268  S=SGN(X>  0  X=PBS(X> 
8  H=!NT(X)  0  V=FP(X)*10 

•  '  FNM=S*((188*FP(V)/60 
♦INT(V))/68-HO 

1278  ENB  KF 

1288  BEF  FHP(X)  =  BTH<(1 
-C8>*TRN(X)> 

1298  BEF  FNB*(X> 


1388  «=•  '  0  IF  X<8  THE 
N  f*=*-* 

1318  X=PBS(XH  1/7280  0  X 
8=INT(XT  8  C»=CttSTR*<'X0 
)tCHR*<l> 

1328  X=68*(X-X8>  0  X0=1H 
T(X)  8  XB=STW(188+X8'  8 
C0=CttX$I2,3U-- 
1338  X=68*<X-X8>  0  X8=1N 
TTX)  *  X*=STRi(108+X0>  0 
FNB0=CttX$t2.31«:HR»(34 

) 

1340  END  BEF 

1350  GOSUB  105  8  BISP  'C 
SF  FOP  '  ;G1$  0  INPUT  •** 

•,G<1> 

1360  BISP  'PSP  FOR  ' ;G2* 
;  0  INPUT  “>  •;  GIZ1'  0  P 
ETURN 

1370  C4=XEY$  0  IF  C*=" 

THEN  1370 

1380  BISP  0  RETURN 

5880  BBTfi  4990,2,16.4443 

95, 169.38312, -X-, 110002 

0.144916,155.53097 

5818  BPTP  -Y*, 29888,28. 2 

34177,178.17382 

5828  BPTP  5938,2,46.482? 

199, 67.5537713, -X-, 11888 

,41.151193,69.583989 

5838  BPTP  *Y',25008,46.4 

63218,53.182816 

5848  BPTP  5978,3,36.1185 

797, -129. 2827279, -N-, 118 

88,42.4437184.-143.43892 

45 

5858  BPTP  -X-, 31888, 35.8 
223871. -126. 3226741, -Z-, 
42888,26.3624975,-128.88 
56445 

5860  BPTP  5998,3,51.5758 
78, 122. 228224, -X-, 11880, 
55. 2628851, 131. 1519648 
5878  BPTP  -V, 27888, 47.8 
34799- 119. 443953, -Z-, 410 
88,58.3629731,127.212984 


-13- 


HP-75C  PROGRAM  LISTING  (cont.) 


5088  WTfl  7838,3,59.5817 
27,45.102747.-«M1000.6 
4.542658,23.552175 
5090  WTfl  *X-, 21008, 62. I 
75964, 7.0426538, ‘Z', 4380 
0,46.463218,53.102816 
5100  WTfl  **7930-, 3, 24.1 
707888, -153. 5853232, *X*. 
11080,42.4437104,-143.43 
89245 

5110  WTfl  *r,30008,26.3 
624975, -128. 0856445, *2-. 
49008,9.3245789,-138.095 
497 

5120  DATA  7%0-2,63. 1942 
814, 142.48319. -X*, 11000. 
57.262021,152.2211225 
5130  WTfl  -V, 26006,55. 2 
620851,131.1519648 
5140  WTfl  7970,4,62.1759 
64- 7.0426538, “H-, 26000, 5 
4.4829872,-8.1736312 
5150  WTfl  "X*,  11008,68.3 
80615, -14. 2747, "Y", 46000 
,64.542658,23.552175 
5160  WTfl  *?*, 60000, 70.5 
45261.8.435869 
5170  WTfl  7980.4,38.5938 
74,85. 1009305,  T,1 1000, 
38.4333818,90.49436 
5180  WTfl  -X", 23008, 26. 3 
155006,97.5800093, -Y-, 43 
000.27.0158393,80.065342 
9 

5190  WTfl  -Z*. 59000, 34.0 
346081,77.5446654 
5200  WTfl  7990,3,38.5220 
587, -16.4386159, *X*. 1100 
0,35.3120787,-12.3130245 
5210  WTfl  -Y-, 29080, 40.5 
82095,-27.520152, -Z-, 470 
00,42.0336515.-3.1215512 


5220  WTfl  8970,3,39.5187 
54, 87.291214, *H-, 11000, 3 
0.593874,85.1089385 
5230  WTfl  *X*. 20800. 42. 4 
250603, 76. 4933862. -Y-, 44 
000,48.3649844,94.331846 
9 

5240  WTfl  9940,3,39.3306 

621,118.495637 

5250  WTfl  *«■,  11000. 47.8 

34799, 119. 443953, 'X-, 270 

00,38.465699,122.2944529 

5260  WTfl  *Y*, 40000, 35.1 

91818,114.4817435 

5270  WTfl  9960,4,42.4258 

603, 76.4933862, 11008 

,46.4827199,67.5537713 

5280  WTfl  -X*, 25000, 41.1 

51193,69.583909, *Y*, 3908 

0,34.0346081,77.5446654 

5290  WTfl  -Z*, 54000, 39. 5 

10754,87.291214 

5380  WTfl  9970,4,24.4883 

597,-141. 1938303,  *HM  18 

00,24.1787888,-153.58532 

32 

5318  WTfl  *X*. 30008. 42, 4 
437104.-143.4389245. -Y-. 
55000,26.3624975,-128.08 
56445 

5320  WTfl  *Z*. 75000, 9. 32 
45789.-138.095497 
5330  WTfl  9990,3,57.0912 
265, 170. 1506789, -X-. 1100 
0,52.494404,-173.1048974 
5340  WTfl  *Y*. 29008, 65.1 
440306- 166.531255, *Z-, 43 
000,57.262021,152.221122 
5 
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III.  THE  SHARP  PC-1500  (RADIO  SHACK  TRS-80  PC-2) 


PC-1500  (TRS-80  PC-2)  USER  INSTRUCTIONS. 

The  options  are  labeled  1  through  9,  A  or  H.  The  H  (Help) 
option  will  review  options  1  -  9  &  A.  To  step  through  the  HELP 
menu,  use  the  ENTER  key.  Option  6  (TWO  POINT  HEAD  &  DIST)  is  a 
stand-alone  option  which  may  be  used  by  itself.  For  LORAN  fixing, 
Option  8  must  be  selected  first  to  load  the  station  GRI's.  If 
Option  8  is  not  used,  then  any  option  requiring  the  GRI's  will 
automatically  enter  Option  8  first.  Option  1  (LORAN  FIX)  must  be 
selected  at  least  once  before  Option  2  (ALTERNATE  SOLN)  can  be 
selected.  Once  the  GRI's  are  loaded,  any  of  the  remaining  options 
may  be  used  at  any  time.  When  first  run,  the  ASF  Correction 
Factors  are  set  to  zero;  if  they  are  subsequently  entered  as 
non-zero  values  they  will  remain  set  until  either  changed 
manually,  by  selection  of  Option  9,  or  until  the  program  is  RUN 
once  more.  In  all  cases,  South  latitudes  and  East  longitudes  must 
be  negative  for  input  and  will  be  labeled  by  a  minus  sign  '-'  on 
output.  For  ease  of  reference  the  options  are  listed  by  number 
rather  than  by  sequence  of  selection. 


INSTRUCTION 


Run  Program 


1.  LORAN  FIX 

ITD  for  1st  GRI 
ITD  for  2nd  GRI 
Lat  of  fix 
Long  of  fix 


2.  ALTERNATE  SOLN 
Lat  of  fix 
Long  of  fix 


DISPLAY 


NEXT  OPTION  (Help) ? 

ITD  FOR  gri  1? 

ITD  FOR  gri  2? 

LAT  =  dd°mm'ss" 

LONG  =  ddd°mm'ss" 
NEXT  OPTION  (iielp)  ? 


LAT  =  dd°mm'ss" 

LONG  =  ddd°mm'ss" 
NEXT  OPTION  (Help) ? 


INPUT 


RUN. 10 


1 

1st  ITD  [ENTER] 
2nd  ITD  [ENTER] 
[ENTER] 
[ENTER] 


2 

[ENTER] 

[ENTER] 


3.  INPUT  DEST  LAT/LONG 

DEST  LAT  dd.mmss? 
DEST  LONG  ddd.mmss? 
NEXT  OPTION  (Help)? 


3 

Lat  of  dest. 
[ENTER] 

Long  of  dest. 
[ENTER] 


4.  HEAD  &  DIST  TO  DEST 

Heading  to  dest.  HEADING  =  dd°mm'ss" 
Dist.  to  dest.  DISTANCE  =  mmm.ff  n.mi. 

NEXT  OPTION  (Help)? 


4 

[ENTER] 

[ENTER] 


-15- 


PC-1500  (TRS-80  PC-2)  USER  INSTRUCTIONS  (cont.) 


INSTRUCTION 
5.  PREDICT  ITDs 

1st  ITD 
2nd  ITD 


6.  TWO  POINT  HEAD  & 


Heading  to  dest. 
Dist.  to  dest. 

7.  CALIBRATE 


8.  NEW  STA.  IDs 

9.  ASF  Corrections 

A.  STOP 


DISPLAY 


LAT  dd.mmss? 

LONG  ddd.mmss? 

ITD  FOR  gri  1  = 

XXXXX.XX  US 

ITD  FOR  gri  2  = 
XXXXX.XX  ys 

flew  Lat/Lon  or 
Beturn  to  menu 

NEXT  OPTION  (Help)? 

DIST 

ORIGIN  LAT  dd.mmss? 

ORIGIN  LONG  ddd.mmss? 

DEST  LAT  dd.mmss? 

DEST  LONG  ddd.mmss? 

HEADING  =  dd°mm'ss" 
DISTANCE  =  mmm.ff  n.mi 
NEXT  OPTION  (Help)? 


LAT  dd.mmss? 

LONG  ddd.mmss? 

ITD  FOR  gri  1? 

ITD  FOR  gri  2? 

NEXT  OPTION  (Help) ? 


1st  GRI? 

2nd  GRI? 

NEXT  OPTION  (Help) ? 


ASF  FOR  gri  1? 

ASF  FOR  gri  2? 

NEXT  OPTION  (Help)? 


> 


INPUT 

5 

Lat  [ENTER] 

Long  [ENTER] 

[ENTER] 

[ENTER] 

repeats  Option  5 
goes  to  next  line 


6 

Lat  of  origin 
[ENTER] 

Long  of  origin 
[ENTER] 

Lat  of  dest. 
[ENTER] 

Long  of  dest. 
[ENTER] 
[ENTER] 
[ENTER] 


7 

Lat  of  fix  [ENTER] 
Long  of  fix  [ENTER] 
1st  ITD  [ENTER] 

2nd  ITD  [ENTER] 


8 

Sta.  ID  [ENTER] 
Sta.  ID  [ENTER] 


9 

1st  ASF  [ENTER] 
2nd  ASF  [ENTER] 


A 


PC-1500  (TRS-80  PC-2)  SAMPLE  PROBLEM  1 


You  are  sailing  off  of  the  coast  of  California.  Your 
destination  is  Moss  Landing  at  about  36°48'N  and  121°47'W.  Your 
present  ITD  from  station  pair  GRI  9940W  is  16019  and  your  ITD  from 
station  pair  GRI  9940Y  is  42585.  What  is  your  current  position  and 
what  is  the  heading  and  distance  from  your  current  position  to 
Moss  Landing?  We  assume  that  the  GRI 1 s  9940W  and  9940Y  have  not 
yet  been  loaded. 


DISPLAY  CONTENTS  USER  RESPONSE 


COMMENTS 


NEXT  OPTION  (Help) ? 
DEST  LAT  dd.mmss? 
DEST  LONG  ddd.mmss? 


3 

36.48  [ENTER] 
121.47  [ENTER] 


Input  destination. 
36°  48' 

121°  47  ' 


NEXT  OPTION  (.Help)  ? 
1st  GRI? 

2nd  GRI? 


8  Input  station  ID's. 

9940W  [ENTER] 

9940 Y  [ENTER] 


NEXT  OPTION  (Help)? 
ITD  FOR  9940W? 

ITD  FOR  9940 Y? 

LAT  *  39  14  19 
LONG  =  115  50  52 


1 

16019 
425  85 
[ENTER] 
[ENTER] 


Compute  a  fix. 


Latitude  of  fix. 
Longitude  of  fix. 


This  fix  is  in  Nevada.  There  are  always  two 
solutions  to  the  LORAN  equations.  The  navigator 
must  select  the  correct  one. 


NEXT  OPTION  (Help)? 
LAT  =  35  00  01 
LONG  =  125  00  09 


2 

[ENTER] 

[ENTER] 


Select  alternate  soln. 
Latitude  of  fix. 
Longitude  of  fix. 


This  fix  is  in  the  Pacific.  The  navigator 
knows  it  is  the  correct  fix  because  of  his 
estimate  of  where  he  should  be. 


NEXT  OPTION  (Help)? 

HEADING  =  54  34  11 
DISTANCE  =  190.38  n.mi. 


4  Find  heading  &  distance 

to  destination. 

[ENTER]  Heading  to  Moss  Landing. 

[ENTER]  Distance  to  Moss  Landing. 


NEXT  OPTION  (Help)? 


Repeat  with  new  option 
or  press  A  to  quit. 
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PC-1500  (TRS-80  PC-2)  SAMPLE  PROBLEM  2 


How  far,  and  in  what  direction,  is  Corvallis,  Oregon 
(44°34'N,  123°16'W)  from  Cupertino,  California  (37°19'N, 
122°  02 'W) ? 


DISPLAY  CONTENTS 


USER  RESPONSE  COMMENTS 


NEXT  OPTION  (Help) ? 

ORIGIN  LAT  dd.mmss? 
ORIGIN  LONG  ddd.mmss? 
DEST  LAT  dd.mmss? 

DEST  LONG  ddd.mmss? 
HEADING  »  353  02  59 
DISTANCE  =  438.32  n.mi. 


6 

37.19  [ENTER] 
122.02  [ENTER] 
44.34  [ENTER] 
123.16  [ENTER] 
[ENTER] 
[ENTER] 


Two  point  distance 
and  heading. 

37  ° 19 ' 

122  °  02 ' 

44° 34  ' 

123° 16  1 


NEXT  OPTION  (Help)? 


Repeat  with  new  option 
or  press  A  to  quit. 


PC-1500  (TRS-80  PC-2)  SAMPLE  PROBLEM  3 


Suppose  that  you  want  to  know  what  ITD's  you  would  expect  to 
receive  at  35°  North,  125°  West  and  at  36° 27'  North,  126° 54'  West 
from  9940W  and  9940Y.  To  determine  these  ITD's,  proceed  as  follows 
(assume  that  the  GRI ' s  have  been  loaded  as  in  Sample  Problem  1): 


DISPLAY  CONTENTS 


USER  RESPONSE 


COMMENTS 


NEXT  OPTION  (Help)? 

LAT  dd.mmss? 

LONG  ddd.mmss? 

ITD  FOR  9940W  =  16019.35 
ITD  FOR  9940 Y  ■  42584.71 
Hew  Lat/Lon  or 

fieturn  to  menu? 
LAT  dd.mmss? 

LONG  ddd.mmss? 


ITD  FOR  9940W  =  15572.32 
ITD  FOR  9940Y  =  43006.15 
Hew  Lat/Lon  or 

Beturn  to  menu? 


5 

35  [ENTER] 
125  [ENTER] 
[ENTER] 
[ENTER] 

N 

36.27  [ENTER] 
126.54  [ENTER] 
[ENTER] 
[ENTER] 

R 


Predict  ITD's. 
35° 

125° 


36° 27  ' 
126°  54  ' 


NEXT  OPTION  (Help)? 


Repeat  with  new  option 
or  press  A  to  quit. 
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PC-1500  (TRS-80  PC-2)  SAMPLE  PROBLEM  4 


Suppose  you  are  receiving  an  ITD  of  16308  from  9940W  and 
42800  from  9940Y.  These  ITD's  would  tell  you  that  your  location  is 
36°47'55"N  and  121°47'11*W.  However,  you  know  that  your  position 
is  benchmarked  to  be  at  36°47,36"N  and  121° 46 ' 5 8"W,  and  you  wish 
to  calibrate  your  PC-1500  so  that  the  ITD's  of  16308  and  42800 
will  give  you  the  latter  fix  instead  of  the  former.  Proceed  as 
follows  (assume  the  GRl's  have  been  loaded  as  in  Sample  Problem 
1)  : 


DISPLAY  CONTENTS  USER  RESPONSE 


COMMENTS 


NEXT  OPTION  (Help)? 
LAT  dd.mmss? 

LONG  ddd.mmss? 

ITD  FOR  9940W? 

ITD  FOR  9940 Y? 


7 

36.4736  [ENTER] 
121.4658  [ENTER] 
16308  [ENTER] 
42800  [ENTER] 


Calibrate . 

36  r  47 ' 36  " 
121°  45 1 58" 


The  station  baselines  have  now  been  modified  to 
achieve  calibration.  Now,  reenter  16038  and  42800  into 
the  fixing  routine  to  test  the  calibration.  Calibration 
does  not  modify  the  permanent  station  data  stored  in  the 
PC-1500.  The  calibration  remains  effective  until  the 
GRl's  are  reloaded  by  Option  8.  NOTE:  The  affect  of 
calibration  on  the  accuracy  of  fixes  far  removed  from 
the  benchmark  has  not  been  studied.  The  user  should  use 
the  calibration  option  with  caution. 


DISPLAY  CONTENTS  USER  RESPONSE 


COMMENTS 


NEXT  OPTION  (Help) ? 
ITD  FOR  9940W? 

ITD  FOR  9940 Y? 

LAT  =  36  47  35 

LONG  =  121  46  59 


1 

16308  [ENTER] 
42800  [ENTER] 
[ENTER] 
[ENTER] 


Compute  a  fix. 


Lat  of  fix. 
Long  of  fix. 


The  small  discrepancy  between  this  fix  and  the 
benchmark  is  due  to  assumptions  in  the  fixing  algorithm. 
If  higher  precision  is  required,  the  ASF  Correction 
factor  may  be  used  (see  Sample  Problem  5) .  Note  that  you 
may  need  to  use  the  Alternate  Solution  Option  2  if  the 
fix  obtained  above  is  near  38°52'57"N  and  116°51,11'W. 


DISPLAY  CONTENTS 

USER  RESPONSE 

COMMENTS 

NEXT  OPTION  (flelp)? 

Repeat  with  new  option 
or  press  A  to  quit. 
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PC-1500  (TRS-80  PC-2)  SAMPLE  PROBLEM  5 


Suppose  you  are  receiving  an  ITD  of  12153.31  microseconds 
from  9960W  and  44451.83  microseconds  from  9960Y.  These  ITD's  would 
tell  you  that  your  location  is  44°15,05"N  and  67°25'23"W.  Entering 
the  ASF  Correction  Tables  [Ref.  5,6]  with  these  readings,  the  ASF 
Correction  for  GRI  9960W  at  44°15'N  and  67025'W  is  1.5  micro¬ 
seconds.  Similiarly,  the  ASF  Correction  for  GRI  9960Y  at  these 
coordinates  is  2.7  microseconds.  Enter  these  corrections  into  your 
PC-1500  and  recompute  your  position.  (Load  the  GRI's  9960W  and 
9960Y  using  Option  8) . 


DISPLAY  CONTENTS 


USER  RESPONSE 


COMMENTS 


NEXT  OPTION  (Help) ? 
ASF  FOR  9960W? 

ASF  FOR  9960Y? 

NEXT  OPTION  (Help) ? 
ITD  FOR  9960W? 

ITD  FOR  9940Y? 

LAT  =  44  15  26 

LONG  =  67  26  26 

NEXT  OPTION  (Help)? 


9 

1.5  [ENTER] 

2.7  [ENTER] 

1 

12153.31  [ENTER] 
44451.83  [ENTER] 
[ENTER] 
[ENTER] 


ASF  Correction. 
Compute  a  fix. 

Repeat  with  new  option 
or  press  A  to  quit. 


These  ASF  Corrections  have  been  entered  into  the 
computer.  The  range  of  their  validity  must  be  checked 
with  the  ASF  Correction  tables  and  reentered  if  they 
change.  NOTE:  If  you  are  using  the  ASF  Correction  Tables 
and  if  you  wish  to  calibrate  to  a  benchmark  position, 
you  should  first  enter  the  ASF  Corrections  for  your 
benchmark  and  then  use  the  calibration  Option  7  (see 
Sample  Problem  4) . 
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PC-1500  (TRS-80  PC- 2)  PROGRAM  LISTING 


IP: REM  LORAN-C  R 
OUTINE.  "ew  06 
-23-83.  1730  H 
OURS. 

20: N9=15: REM  N9= 
♦»  OF  MASTER  ST 
ATIONS 

25:  DIM  Ll*(4)*l,  D9 
(4),  PI  ( 4  ) ,  L  1  <  4 
), G$<2)*6, 0(2) 
,  D(2,  2),  1(2,  2) 
,  B(2),  '(3),  ?(2 
,  2),  A<2> 

26 :  D  1  M  GC2~> 

30: RAD  I  AN  : 20- 1  '2 
98.26: A0-- I . RD 
-p]  / 1 80 : G1 $- 
: GOTO  ! 20 
40 : X=  I  NT  (M*X+.5) 
sfl:  RETURN 
50:p-129.04398/T- 
.  cl0758  + .  645764 
38E~3*T: RETURN 
60: p-2. 7412979/7- 
. 01 1 402+. 32774 
624E-3*T 

70: I NKEV$  ; } p 
C$=" ' tHEN  70 
80:  C-ASC  ( C  $ )  •  C  $ 
CHR$  < C-32* ( C> 
90)  ) 

90: rOR  C- 1  TO  LEN 
(C0$): IF  = 
MID*  (C0$,  C,  1 ) 
THEN  RETURN 
1 00: NEXT  C : GOTO  70 
120: PAUSE  'NEXT  OP 
TION  (He  Ip)?" : 
C0$=" 123456789 
AH" : GOSUB  70: 
PAUSE  "  " 

1 30 : ON  CGOSUB  910, 
950,  1010,  1040, 
1090,  990,  1200, 
190,  1320,  530,  1 
40: GOTO  120 


140: PR]NT  1  :  -  LOR 
AN  FIX'  PR  IN” 

' 2  ~  ALTERNATE 
SOLN' : PRINT  " 
3  -INPUT  CEST 
LAT/LONG' 

150: PRINT  ' 4  -  HEA 
D  £  D I ST  TO  p I 
X' : PRINT  '5  - 
PREDICT  I TD? 
160: PRINT  '6  -  TH0 
POINT  DIST  £ 
HEAD  : CR I  NT  1  7 
-  ca_:pratf' 

'  7  ^ ;  p  R  I  N  *  ’  8  -  Nt*. 
STA.  IDs • • 

PR  IN'  '9  -  AS-” 
Co~r  e ct  i cns ;  • 
PR  IN'  A  -  S ' 0 
P  : 

1 90: RET URN 
185:  Ic  Gl$<  >'  'HEN 
RETURN 

1 90 : P0- 1 : N- 1 . ! NP J* 
'1st  GRIP  '  \ It 
: PAUSE  ' 

200 : CDSUB  390. 

COS JB  390. Ir  r 
0-2THEN  19? 
210: r0- 1 :N -2: INPJT 
'  2nd  GR  3  ?  i  1$ 
: PAUSE  1  : 

GOSUB  380 
220: IF  A$- I 9$THEN 
GOSUB  470: IF  r 
0= 1  THEN  250 
240: GOSUB  390: jr  r 
0-2THEN  210 
250: F ] =i : P2- 1 : lc  G 
1$--G2$THEN  300 
260:  IF  PC],  1  )^P(], 
2 ) AND  LC 1, 1 )=L 
( 1,  2 ) T HEN  310 
270: P2=- 1 :  IF  PCI,  1 
)=P(2, 2 ) AND  LC 
1,  1  )=L(2,  2) 
THEN  310 


Roproducod  Row 

b«,t  iviillbU  copy 


PC-1500  (TRS-80  PC-2)  PROGRAM  LISTING  (cont.) 


>=DC2f  2 AND  L< 
2,  1  >-L(2,  2> 
THEN  310 

290:  P2-  1 :  IF  P(2.  1  > 
=P(  1,  2) AND  L C2 
,  1K(1,  2  ^  THEN 
310 

300 : PR I  NT  ’  ERROR: 

NO  TR 1  pi_ET .  : 

COTO  190 

3 1 0 : r  OR  1  -  - 1 T  0  2 : p 1 
-p ( 1 ,  I  ) : L  1-L w 

.  1  'i :  p2 -p- 2.  :  ■ : 

l?-e  .2. : 

320:  PAJSL  ’  ■  no 

’  :  COSJP  330: 
NEXT  1  :  C  C I  ">  ■  - 0  • 

G 12  > -0: RE* URN 
330: COSUB  650: j  t 
-S0: ?< 1. : >-21 ■ 

?- 2t  I  >-22 

?40: ’-21 282 . 3593*3 
0 

350:  Ip  *  >- 537THtN 
COSJP  50 
360 : 1 r  ’ < 537THEN 
COSJP  60 
320: "( I >-T-p. 
RETJRN 

380 :  L  -  Lc  N  ( I  $  > ; A$  - 

LEFT$  d$,  i-n 

: 8$-R 1 GHT $  (]$ 
,13: B-ASC  (8$T 
:B$-CHRt  (B-32 
*(B>90) ) : 
RETURN 

390: N8=l : RESTORE 
400: READ  1 9$, N0,  p8 
,  L0 

4 10: rOR  1  -  1  TO  N0 : 
READ  W$< 1 ), D9( 
I  J,  P1  <  1  3,  LI  ( 1  > 
: NEXT  I 

420: IF  I 9$< >A$THEN 
450 

430: GOSUB  470: IF  p 
0=2THEN  460 


440:^E’"URN 
4H0  .  ]  :  l  r  1^9/ 

~N9T HEN  400 
460: pAuSE  it;  IS 

NOT  cataloged 

• r 0-2: RETURN 
470: pOR  ] - I  TO  N0: 
,p  NtC  j >-B$ 
THEN  490 
480: NEXT  ’ : r8=2: 
RETURN 

490. \-  N-j’HrN  EE 
C C$-  1 

t 

580.  •  N  — 2 "’■‘r.N  EE  * 

C?t-- '  t ;  Gt '  2>  -  i 

t 

510:  N  >  - 2 9  '  I  :  V-R 

T'*DEG  -  8 ) : 
GOSUB  1270:p  1 
.  N ) - X : _ : : . N)-R 
D*DES  (_P> 

520:  *=RD*DEG  'D:  ': 
■>  ) ;  GOS  JB  1278. 
D'2f  N  >  •- X  :  _  (2-  N 

)-rd*deg 

N  :  RE” URN 
530: -A J3E  : END 
540;Rt.n  2  i  R  CO.N 

558:  78-S  j  N  <  2  1 

=COS  (21  > :  p8- 
SIN  (p: >:p9^ 
COS  (PI > : H--78 
*P9: C 1 -C0*n: C2 
-C0*( 1 -n*f1>/4 
560: D=<]-C2)*<l-C2 
-Cl*m  :  P=C2* ( 1 
+Cl*n/2)/D:N=P 
9*29 

570: vy=N: XX=P8: 

COSUB  .1260:  SI  = 
AN: D0=S0/D: U-2 
*(S1 -D0) : U~ I -2 
*P*COS  (U> : U= 
COS  (U+D0) 


PC-1500  (TRS-80  PC-2)  PROGRAM  LISTING  (cont.) 


580: X-C2*C2*S1N  CD 
0 ) *COS  <00* (2* 
U*U-I > ) : v-2*p* 
U*U*SIN  <D0) 

590: S2=D0+X-Y : S8= 
SIN  CS2):S9- 
COS  ( S2 ) : K-SQR 
<  n*n+ ( n*S9-P8* 
S8)A2) 

600:  P2-ATN  C(P8*S9 
+N*S8)/K) 

610: vy=-S8*Z8: XX-P 
9*S9-P8*S8*29: 
COSUB  ’260: S3 - 


700: D2=C0*C0*(N’-N 
2  +  N3> '6 4 : D3 -C0 
*  <  T  *X~Y ) /4 . S0- 
< T-D3+D2)*SIN 
<D0) 

710: 1=32*T- (20*T-A 
)*X-<8  +  4  >*Y 
•?20:  r=v+Y-t*<4-X) ; 
G=C0*CT'2+C0*n 
'64 ) : Q  -  -  F  *  6  * 
TAN  <L3)/4 
730:i_4=(L3 ^3)/2:  28 
-SIN  (L4 ) : L9- 
CC?  ( _ > 


AN 

620 : H=C 1  *  < ’-C2)*S2 
-CI*C2*S8*C0S 
<S3 -SI -S2) ; ~2= 
L1-S3-H 

630 : VY=-M: XX- - ( N*S 
9-p8*S8 ) : GOSJB 
1260: Z2=AN. 
RETURN 

640: REM  REU  SO^N 

650: L  3=L2~L 1 : D3- <  P 
2-p 1 )/2:p^=(P: 


74  0 : \  -  P6*L9:XX~P9 
*1.8:  COS'JB  1250 

:  -  ;  _3m:  v  s 
29.  Y X-PB*_8. 
COS'JB  1 250;  ~2- 
AN 

750 •  "1-P !  tPj  :  X-T  1 
-  T2 : C0SU3  1250 
;  ?-z:X:  X=’!-"2: 
COS JB  1 250; 72- 
X ; RE'JRN 

760:REn  FIXING  RC 


‘D2 ) /2 

660:  P6-5IN  (  P  3 ) :  p  " 
-COS  <  P3 ) : PP- 
SiN  (P4):p9- 
C OS  <P4) 

620: H-p7*P?-p8*P8: 
L-P6XP6+HXSIN 
<13^2 ) A2 : D0-2* 
ASN  < SQR  <L)> 

680:  (J-2*P8*P8*P7*P 
7/ <  I  -L  > : U-2*P6 
*P6*P9*P9/L : X= 
J+U:V=U-U: T -D0 
/SIN  <D0) : D -4* 
T*T 

690: E-2*C0S  <D0):A 
-D*E: C=T- (A-E) 
/2: NI -X*(A+C*X 
) : B- D+D: N2=Y*( 
B+E*Y) : N3-D*X* 


JT1NE 

770:A;-*’1*SIN  <A<  1 

;■  > ;  bi  -  cos  '  a  :  : 

) )-COS  (8(1 >)• 
C 1 -S 1 N  ( 9  <  1  ) ) 
700: A2-F2*SIN  CAC2 
) ) : B2-C0S  < A ' 2 
))-C0S  <B(2>): 
C2-S I N  (Bv.2)) 
790 : El =Z( 1 >  I): IF  F 
1=-1 THEN  LET  E 
I  =Z(2,  I  ) 

800:E2=ZU,  2):  IF  F 
2=- 1  THEN  LET  E 
2=Z(2, 2) 

810: C=B 1 *C2*C0S  C E 
2)-B2*Cl*C0S  < 
E3  > : S-Bl *C2* 
SIN  (E2)-B2*C1 
*S 1 N  (El) 


Y 
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PC-1500  (TRS-80  PC-2)  PROGRAM  LISTING  (cont.) 


820: k-87*Al -B ! *A2- 
R=SQR  (C*C+S*S 
' : vVi3:xx-C: 
COSUB  1 260 : G-A 
N 

830: ?=G+A0XACS  <k/ 
R) : YY-82: XX-C2 
*COS  <  Z-E2  >-*-A2 
: GOSUB  1260: S0 
=  AN 

840:  I r  r ? -  ]  rHE.N 

LET  01-0(1,2): 
L  ’  -  L  <  1  >  2  ^ 

P50  :  :  r  r2-  -  1  THr.N 


860: ? 3 -7 : COSUB  560 
: P0-D2 : L0-L2: = 
-ATN  (TAN  (P0) 
/( 1-C0) ) 

878: O-P/RD: X-L0/R2 
:  *1-360:  COSUB  1 
250:  L  =  X :  r  L  N  1 
80THEN  LET  L 
-360 

880: X-O; COSU?  1280 
:  r  $ .  . 

COSUP  1280 
890 •'  CR I  NT  _  A~ 

. p$ : OR ] NT  1 u  On 
C  -  1 ! C$ : 
RETURN 

900: REN  OpT  1 
910: GOSUB  185:O0R 
1  -  1  TO  2 

920: pAUSE  ' I TD  FOR 
'•;6*Cl)j: 
INPUT  "?  " ; A: 
PAUSE  : PAUSE  " 
; A=A+G< 1 )-D( 
I >- T ( 1 ) : IF  ABS 
( A ) <  T ( 1 ) THEN  9 
40 

930: PRINT  -  1 TD  NOT 
UAL  ID  FOR  '• ;  G 
$( 1 ) : GOTO  920 


040:  A  I  >~A  2129:  .  P 
’’36:  NLX"  • 
COSUB  '’7?: 
RETURN 

950:  IF  A0- 1  THEN 

i_ E T  A0- -  1  ;  GOTO 
970 
960: A0- 1 
970: GOSUB  770: 
RETURN 

980 : REN  Op'  6 
990:  I  NFL'  ' ORIGIN 
_  A  *  dd .  T>ms  s 
;  -  :  1  \o  *  OR  ; 

I  n  _  ON  ddd .  m  r 
r.z'  ;  _ 

•000:  v-R.-*2EC 

;  lo,  -UP  I  2  ’0  • 

-0-X;  _0-R ,:t 
DEG  f'J. 
GOSUB  1010; 
CO SUB  1040. 
RE 'URN 

1018.  :nfu*  ’Cu  " 

_  A'  dd.  TT.r  ;  ■ 

:  o :  1  N;-'^  r 

C  ^  '  i 

'~i  v  t  st  r  , 

1  020  :  v  ■  o. C-  ;  L :  - 

: CCS UP  1270. 

D6-X:  L--EL*. 
DEG  (L>: 

RE T URN 

1 030 : REN  OP'  4 
1  040:  D3  -P0:  L  1  -1-0: 
P2-P5: L2-L5: 
GOSUB  650 
1050:N-360:X-Z1/R 
D: GOSUB  1250 
: GOSUB  1280 
1 060 : PR 1  NT  'HEAD! 
NG  -  '  ;C$:N^- 
100: X-3443. 9 
1 7CS0: GOSUB 
40: PR  1  NT  1 0 1 
STANCE  -  1 ;X 
j  o .  <r»  ’ 

1 070: RETURN 
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PC-1500  (TRS-80  PC-2)  PROGRAM  LISTING  (cont.) 


!  080: REM  0PT  5 
1 09? • GOSUB  185; 
COSUB  i I ve ; 
rOR  k-  3  T0  ?; 
!9=T(K)-D(k) 

1  100:p2  =  p(2,  k ) :  l.  2 
-L <2, K): 
GOSUB  650:!= 
0: GOSUB  3B0: 

3 9=3 9-' <3 ) 

:  :  :*:*?=*•<].  0:_? 
-  L  U  A  )  : 

COS  J?  650:  ’  - 
A  CCS Jr  34  0; 

:  ;  r- '  ;3  ’> 

:  :  20:  3  00:  *-  -  “• 

GGSJ5  4 0 

: ; ?0: drin'  ' : v  r 

OR  '  :  G  $ ( k  ^ ; 

;  X:  P-3J3E 
:  :  N't  XT  k 

3  ;  40 :  PAUSE  'Ne*  ’ 
0  *'  i  onq  R 

r.  ;  .j''*'1  \  c  r> 

S':  :  c.  0$  *  NR' 

.  COSUr  p*3 
;  ;  50:  '  2  - : Tu: n  : 

020 

1  3  6i0 :  R£  "  URN 
;  ;  ?0:  ’  N"  JT  ’  _  A'  d 
TTi,  I  *■  ’ 

: . :npjt  1 lOn 

G  ddd .  inm s  s  p 

; U  j : DAUSE  r 

;  ;80:X--RD*DEG  (PI 
■>:  COSUB  3  220 
: p 1 -X: L 1 =RD* 
DBG  (LI): 
RETURN 

; ; 90: REM  OPT  2 
3200: GOSUB  3 85: 
GOSUB  1120: 
r0R  K= 1  TO  2 


1210: PAUSE  "I'D  ; 
OR  1  ;  C  ? ( K  ) :  : 
INPUT  '  , : 
8: PAUSE  : 
PAUSE  1  :  3  9 

=  1 9-D ( k  > 

1220:p2=P<2, k).i_2 
=  LC2,  k>: 

COSUB  650: 

3: COSUB  340: 

1 9=19-T< 3) 
1230: °2=D( 1. k> • -2 
=L<  1  -  O : 
C03U?  6  50-  3  ' 
A.GO^jr  3‘*0- 
T(k )  =  ]?-’ 

rO  (  k  ) 

1240: NEXT  k: 
RETURN 

1  250 :  x=X-~1*  IN'  •;>' 
/M) : RE' JPN 
3268:  AN=ATN  A  '■  -  • 
XX-1E-3* 
0)))-p:  *  v> 
<0): RETURN 
3220: ^=ATN  ((3-20 
) *TAN  (X  / . 
RE' URN 

3230:  i$-‘  ;  v 

8THtN  _L '  02 
- 1  -  1  :  y.  -  v 
3  290: X=X-  3  '7200: X 
0— I N  T  (X):l$ 
-C$-3TR$  X0 
)  +  r  ' 

1300: X=60*(X-X0) : 
X0-1NT  ( X ) : X 
$-STR$  (100- 
X0 ) : C$-C$- 
RJGHT$  (X$,  2 
>  +  "  " 

1 3 1 0: X-60X(X-X8 ) : 
X0- 1  NT  ( X ) : X 
$=STR$  (100- 
X0) : C$=C$- 
R 1 GHT  $  <X$,  2 
)+'  ' : RETURN 
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PC-1500  (TRS-80  PC-2)  PROGRAM  LISTING  (cont.) 


CO  SUP  IP?; 

5070: HA!  A  '  ^  .770 

•-’A'JSt  AS' 

00,  47.  f-34""9- 

OR  '  ;  G$  '  1  ’• . 

.  119.448-',,. 

!  N  P  U  T  ’  ' 

7  .  4:000.  v 

"  n  :  -'AJSl  • 

.  3629731.  17 

pAUSt 

212304? 

^AUSc  '  hS: 

s080 :  PA T A  '’930'  > 

OR  : ; o$- ;  . • 

-,  59.591  7o' . 

INPJ"  ° 

45.  102347.  A 

•  7 ; ;  c. a -  . 

.  1  1  000.  64  . 

-  A  JSr. 

42658.  23 .  r  6. 

• 

K  L.  K  N 

• 

^  j  m  «- . i  r> »  « 

‘  V'  ,  ;  c 

3c  .  CC .  ’  ~ r  ^ 

^  .  O  V  :  J  .. 

1  lr  '  *  ^  t\~  ,  „  • 

•  .  61  *■*  »  -  »  ■ 

•  ^  ..  *  •  «.  )  J.  1  • 

8000.  4  :  .  . 

^  «  C4  *  >  ’  1; 

46  3216,  r3.  10 

3  / 

26  1  * 

*.  7i  ”  f4  ►  * 

1  0  0  ;  .  :  A  '  5,  j.  ’  '•  ? .  * 

0?,  2?..'?- : 

.  ?.  24.  :  70  V6 

.  :  :  -,3..*2 

6-  -  1  53 . 3  r  t  3. 

rATA  1  •'S.s.*  . 

-7.  v  ,  : :  .*00 

d»  _ip;-  ;-■■ 

.  4  2.448'’  1  K*.  .  . 

^  s:\h- 

; 4 3. 430974 

.  : :  000.  - : 

;;0:2ATA  7  ■  '■‘23 

>  -■.  •  i  o  ,t  < 

00,  26.  3674  45* 

22  APS 

5.  ~  1  2  r  .  0  6  64 
4  ,  .  4  '-'07.  ' 

00,  •"  > 

.  v.  ??£■:  ’r 

.  )C2?:t 

1  37.0:*'  4  9 " 

OAT  A  'T-T-V  . 

'  ■ .  70. 7'  A  A  8  0  0  • 

?.  36. :  105790 

2,  63.  1  94281- 

. -123.202222 

, 142.4Q313. 

9,  A  '  <  1  J  000, 

X 1  ,  i  1000,  57. 

<52.  <5 4 3 7 1  PA,  - 

262021, 152. 2 

1  43. 4  3092*5  5 

211225 

OAT A  ’ V ,  3 1 P 

5130:  !1ATA  '  V'  .  260 

00,  35.02238'-’ 

00, 55.262035 

; ,  -  126.3226  7 

1, 131.151964 

<5,  3'  ,  <5  2000, 

8 

26. 3624935, • 

5  1  4? : HAT  A  '7970'  , 

1 28. 0856445 

4, 62. 1 75964, 

DATA  ‘ 9990' • 

7.0426538.  A 

3,  51 . 5 ’5838, 

”,  26000,  54.4 

122.220224, ' 

829872, -8. 17 

X’  ,  11  000,  55. 

36312 

2620851, 131 . 

1 5 1 9648 
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PC-1500  (TRS-80  PC-2)  PROGRAM  LISTING  (cont.) 


C'150:DATA  '  X'  .  1  1  in 
00,  68. 380615 
,-3  4.274?,  v 
1  ,  ^6000,  64 . 5 
42658,  23.  552 
1  75 

5160: DATA  "2'  ,  600 
00,  70. 54526] 

,  8.435869 

5 1  70-'  DATA  '  7980‘  • 
4,  30.593874, 
85. ’009305, 
ui'  ,  1  1000,  38. 
4  333818.  98.  4 
9436 

5 180:  DATA  '  v"  .  238 
00,  26. 315508 
6, 97.5000095 
.  "V",  43000,  2 
7. 0158393,  80 
. 0653429 

51  30:  DATA  '  ,  590 

00, 34.034609 
; ,  “’7 . 5446654 

5208 : DA’ A  1  1 9 9 0  . 
3.  38.5220597 
.  -  16. 4  305159 
.  v-  .  •  :000. 

5.3128781'.  -1 
2.31 30245 

5210: DATA  ’  v'  .  298 
00, 40.582095 
. -27.520152, 

' 2", 42000, 42 
.  0336515,  -3. 
1215512 

5220:  DATA  •'8970'', 
3,  39.510754, 
87.291214, "Id 
",  1  1000,  30.  5 
93874, 85. 100 
9305 


5230: DATA  "v , 280 
00, 42.425060 
3, 76.4933862 
,  "V  ,  44000,  4 
8. 3649844,  94 
. 3318469 

5240: DAT  A  "9940', 
3,  39.3306621 
.118. 495637. 

'  W  ,  1  1000,  4  ? 
. 034299,  319. 
443953 

5258: DATA  '  V  ,  270 
80,  38 . 4559?. 

;  52 . 2^443 29. 

V  ■ 40000,  33 

.  1 91 81 8.  1 1 4. 

4g; 7433 

5270;  DA~A  • 9960  . 
4.42. 425060? 
.  76 . 4933962- 
2,1  1080.  45. 

.  4827199,  57. 
553771? 

5280: DATA  v’  ,  250 
00,41,1511  9? 
. 59.583903, 

,39000,  'i4. 

0346081,  . : 

446654 

5290: DATA  ' ?  ,  540 
00, 39. 510254 
.87.291214 
5300 : DAT  A  ' 9970'  , 
4, 24.4803597 
. -141. 193030 
3,  'id  '  ,  11  000, 
24. 1207888, - 
153. 5853232 
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PC-1500  (TRS-80  PC-2)  PROGRAM  LISTING  (cont.) 


5310: DATA  "X”,  300 
00,  42. 443710 
4, -143.43092 
45,  ,,Y",  55000 
, 26. 3624975, 
-128.0856445 
5320: DATA  ' Z' ,  750 
00, 9. 3245789 
.  -  138. 095497 
5330: DATA  ' 9990'  . 
3,  57.  091255, 

1 70. 1506789, 
"X",  11000,  52 
. 494404,  -173 
. 1048974 

5340: DATA  1 V",  290 
00, 65. 144030 
6, 166.531255 
,  '  ?'  ,  43000,  5 
7. 262021,  352 
. 2211225 


IV.  THE  RADIO  SHACK  TRS-80  MODEL  100. 

TRS-80  MODEL  100  USER  INSTRUCTIONS . 

The  options  are  labeled  1  through  9  or  A.  Option  6  (TWO  POINT 
HEAD  &  DIST)  is  a  stand-alone  option  which  may  be  used  by  itself. 
For  LORAN  fixing,  Option  8  must  be  selected  first  to  load  the 
station  GRI's.  If  Option  8  is  not  used,  then  any  option  requiring 
the  GRI's  will  automatically  enter  Option  8  first.  Option  1  (LORAN 
FIX)  must  be  selected  at  least  once  before  Option  2  (ALTERNATE 
SOLN)  can  be  selected.  Once  the  GRI's  are  loaded,  any  of  the 
remaining  options  may  be  used  at  any  time.  When  first  run,  the  ASF 
Correction  Factors  are  set  to  zero;  if  they  are  subsequently 
entered  as  non-zero  values  they  will  remain  set  until  either 
changed  manually,  by  selection  of  Option  9,  or  until  the  program 
is  RUN  once  more.  In  all  cases.  South  latitudes  and  East 
longitudes  must  be  negative  for  input  and  will  be  labeled  by  a 
minus  sign  '-'  on  output.  For  ease  of  reference  the  options  are 
listed  by  number  rather  than  by  sequence  of  selection. 


INSTRUCTION 

DISPLAY 

INPUT 

Run  Program 

Select  LORAN. BA 

[ENTER] 

1.  LORAN  FIX 

ITD  for  1st  GRI 

ITD  for  2nd  GRI 

Lat  of  fix 

Long  of  fix 

OPTION? 

ITD  FOR  gri  1? 

TTD  FOR  gri  2? 

LAT  =  dd°mm'ss" 

LONG  =  ddd°mm'ssn 
OPTION? 

1 

1st  ITD  [ENTER] 
2nd  ITD  [ENTER] 
[ENTER] 
[ENTER] 

2.  ALTERNATE  SOLN 

Lat  of  fix 

Long  of  fix 

LAT  =  dd°mm'ss" 

LONG  =  ddd°mm,ss" 
OPTION? 

2 

[ENTER] 

[ENTER] 

3.  INPUT  DEST  LAT/LONG 

DEST  LAT  dd.mmss? 

DEST  LONG  ddd.mmss? 

OPTION? 

3 

Lat  of  dest. 
[ENTER] 

Long  of  dest. 
[ENTER] 

4.  HEAD  &  DIST  TO  DEST 
Heading  to  dest. 
Dist.  to  dest. 

HEADING  =  dd°mm ' ss " 
DISTANCE  =  mmm.ff  n.mi. 
OPTION? 

4 

[ENTER] 

[ENTER] 
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TRS-80  MODEL  100  USER  INSTRUCTIONS  (cont.) 


INSTRUCTION 


DISPLAY 


5.  PREDICT  ITDs 

1st  ITD 
2nd  ITD 


LAT  dd.mmss? 

LONG  ddd.minss? 
ITD  FOR  gri  1  = 
xxxxx.xx  ps 
ITD  FOR  gri  2  = 
xxxxx.xx  ps 
Mew  Lat/Lon  or 
Return  to  menu 

OPTION? 


6.  TWO  POINT  HEAD  &  DIST 

ORIGIN  LAT  dd.mmss? 

ORIGIN  LONG  ddd.mmss? 

DEST  LAT  dd.mmss? 


Heading  to  dest. 
Dist.  to  dest. 


7.  CALIBRATE 


8.  NEW  STA.  IDS 


9.  ASF  Corrections 


A.  STOP 


DEST  LONG  ddd.mmss? 

HEADING  =  dd°mm,ss" 
DISTANCE  =  mmm.ff  n.mi 
OPTION? 


LAT  dd.mmss? 
LONG  ddd.mmss? 
ITD  FOR  ari  1? 
ITD  FOR  gri  2? 
OPTION? 


1st  GRI? 
2nd  GRI? 
OPTION? 


ASF  FOR  gri  1? 
ASF  FOR  ari  21 
OPTION? 


> 
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INPUT 

5 

Lat  [ENTER] 

Long  [ENTER] 

[ENTER] 

[ENTER] 

repeats  Option  5 
goes  to  next  line 


6 

Lat  of  origin 
[ENTER] 

Long  of  origin 
[ENTER] 

Lat  of  dest. 
[ENTER] 

Long  of  dest. 
[ENTER] 
[ENTER] 
[ENTER] 


7 

Lat  of  fix  [ENTER] 
Long  of  fix  [ENTER] 
1st  ITD  [ENTER] 

2nd  ITD  [ENTER] 


8 

Sta.  ID  [ENTER] 
Sta.  ID  [ENTER] 


9 

1st  ASF  [ENTER] 
2nd  ASF  [ENTER] 


A 


TRS-80  MODEL  100  SAMPLE  PROBLEM  1 


You  are  sailing  off  of  the  coast  of  California.  Your 
destination  is  Moss  Landing  at  about  36°48'N  and  121° 47 'W.  Your 
present  ITD  from  station  pair  GRI  9940W  is  16019  and  your  ITD  from 
station  pair  GRI  9940Y  is  42585.  What  is  your  current  position  and 
what  is  the  heading  and  distance  from  your  current  position  to 
Moss  Landing?  We  assume  that  the  GRI's  9940W  and  9940Y  have  not 
yet  been  loaded. 


DISPLAY  CONTENTS 

USER  RESPONSE 

COMMENTS 

OPTION? 

DEST  LAT  dd.mmss? 

DEST  LONG  ddd.mmss? 

3 

36.48  [ENTER] 
121.47  [ENTER] 

Input  destination. 

36°  48' 

121°  47  ' 

OPTION? 

1st  GRI? 

2nd  GRI? 

8 

9940W  [ENTER] 
9940 Y  [ENTER] 

Input  station  ID's. 

OPTION? 

ITD  FOR  9940W? 

ITD  FOR  9940Y? 

LAT  =  39° 14 '19" 

LONG  *  115° 50 *52" 

1 

16019 

425  85 
[ENTER] 
[ENTER] 

Compute  a  fix. 

Latitude  of  fix. 
Longitude  of  fix. 

This  fix  is 
solutions  to  the 
must  select  the 

in  Nevada.  There  are  always  two 

LORAN  equations.  The  navigator 
correct  one. 

OPTION? 

LAT  =  35° 00' 01" 

LONG  =  125° 00* 09" 

2 

[ENTER] 

[ENTER] 

Select  alternate  soln. 
Latitude  of  fix. 
Longitude  of  fix. 

This  fix  is  in  the  Pacific.  The  navigator 
knows  it  is  the  correct  fix  because  of  his 
estimate  of  where  he  should  be. 

OPTION? 

HEADING  =  54° 34' 11" 
DISTANCE  *  190.38  n.mi. 

4 

[ENTER] 

[ENTER] 

Find  heading  &  distance 
to  destination. 

Heading  to  Moss  Landing. 
Distance  to  Moss  Landing 

OPTION? 

Repeat  with  new  option 
or  press  A  to  quit. 
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TRS-80  model  SAMPLE  PROBLEM  2 


How  far,  and  in  what  direction,  is  Corvallis,  Oregon 
(44°34'N,  123°16'W)  from  Cupertino,  California  (37°19'N, 
122°  02 'W) ? 


DISPLAY  CONTENTS 


USER  RESPONSE 


COMMENTS 


OPTION? 

ORIGIN  LAT  dd.mmss? 
ORIGIN  LONG  ddd.mmss? 
DEST  LAT  dd.mmss? 
DEST  LONG  ddd.mmss? 
HEADING  ■  353° 02* 59" 
DISTANCE  =  438.32  n.mi. 


6 

37.19  [ENTER] 
122.02  [ENTER] 
44.34  [ENTER] 
123.16  [ENTER] 
[ENTER] 
[ENTER] 


Two  point  distance 
and  heading. 

37° 19  1 
122°  02  ' 

44°  34  1 
123° 16  ' 


OPTION? 


Repeat  with  new  option 
or  press  A  to  quit. 


TRS-80  MODEL  SAMPLE  PROBLEM  3 


Suppose  that  you  want  to  know  what  ITD's  you  would  expect  to 
receive  at  35°  North,  125°  West  and  at  36° 27  '  North,  126° 54'  West 
from  9940W  and  9940Y.  To  determine  these  ITD's,  proceed  as  follows 
(assume  that  the  GRl's  have  been  loaded  as  in  Sample  Problem  1): 


DISPLAY  CONTENTS  USER  RESPONSE 


COMMENTS 


OPTION? 

LAT  dd.mmss? 

LONG  ddd.mmss? 

ITD  FOR  9940W  =  16019.35 
ITD  FOR  9940 Y  *  42584.71 
Uew  Lat/Lon  or 

fieturn  to  menu? 
LAT  dd.mmss? 


LONG  ddd.mmss? 

ITD  FOR  9940W  =  15572.32 
ITD  FOR  9940Y  »  43006.15 
flew  Lat/Lon  or 

Beturn  to  menu? 


5 

35  [ENTER] 

125  [ENTER] 
[ENTER] 
[ENTER] 

N 

36.27  [ENTER] 
126.54  [ENTER] 
[ ENTER » 
[ENTER] 

R 


Predict  ITD's. 
35° 

125° 


36°  27  ' 
126  °  54  ' 


OPTION? 


Repeat  with  new  option 
or  press  A  to  quit. 
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TRS-80  MODEL  100  SAMPLE  PROBLEM  4 


Suppose  you  are  receiving  an  ITD  of  16308  from  9940W  and 
42800  from  9940Y.  These  ITD's  would  tell  you  that  your  location  is 
36°47'55"N  and  121°47'11"W.  However,  you  know  that  your  position 
is  benchmarked  to  be  at  36°47'36"N  and  121° 46 ' 5 8"W,  and  you  wish 
to  calibrate  your  Model  100  so  that  the  ITD's  of  16308  and  42800 
will  give  you  the  latter  fix  instead  of  the  former.  Proceed  as 
follows  (assume  the  GRI's  have  been  loaded  as  in  Sample  Problem 
1)  : 


DISPLAY  CONTENTS  USER  RESPONSE 


COMMENTS 


OPTION? 

LAT  dd.mmss? 
LONG  ddd.mmss? 
ITD  FOR  9940W? 
ITD  FOR  9940Y? 


7 

36.4736  [ENTER] 
121.4658  [ENTER] 
16308  [ENTER] 
42800  [ENTER] 


Calibrate. 

36°47 '36" 
121°45 '58" 


The  station  baselines  have  now  been  modified  to 
achieve  calibration.  Now,  reenter  16038  and  42800  into 
the  fixing  routine  to  test  the  calibration.  Calibration 
does  not  modify  the  permanent  station  data  stored  in  the 
Model  100.  The  calibration  remains  effective  until  the 
GRI's  are  reloaded  by  Option  8.  NOTE:  The  affect  of 
calibration  on  the  accuracy  of  fixes  far  removed  from 
the  benchmark  has  not  been  studied.  The  user  should  use 
the  calibration  option  with  caution. 


DISPLAY  CONTENTS  USER  RESPONSE 


COMMENTS 


OPTION? 

ITD  FOR  9940W? 

ITD  FOR  9940Y? 

LAT  =  36  °47 ' 35  " 

LONG  =  121°  46 ' 59" 


1 

16308  [ENTER] 
42800  [ENTER] 
[ENTER] 
[ENTER] 


Compute  a  fix. 

Lat  of  fix. 
Long  of  fix. 


The  small  discrepancy  between  this  fix  and  the 
benchmark  is  due  to  assumptions  in  the  fixing  algorithm. 
If  higher  precision  is  required,  the  ASF  Correction 
factor  may  be  used  (see  Sample  Problem  5).  Note  that  you 
may  need  to  use  the  Alternate  Solution  Option  2  if  the 
fix  obtained  above  is  near  38°52'57"N  and  116°51'11'W. 


DISPLAY  CONTENTS 

USER  RESPONSE 

COMMENTS 

OPTION? 

Repeat  with  new  option 
or  press  A  to  quit. 
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Suppose  you  are  receiving  an  ITD  of  12153.31  microseconds 
from  9960W  and  44451.83  microseconds  from  9960Y.  These  ITD's  would 
tell  you  that  your  location  is  44°15'05',N  and  67°25'23"W.  Entering 
the  ASF  Correction  Tables  [Ref*  5,6]  with  these  readings,  the  ASF 
Correction  for  GRI  9960W  at  44°15'N  and  67°25'W  is  1.5  micro¬ 
seconds.  Similiarly,  the  ASF  Correction  for  GRI  9960Y  at  these 
coordinates  is  2.7  microseconds.  Enter  these  corrections  into  your 
Model  100  and  recompute  your  position.  (Load  the  GRI's  9960W  and 
9960Y  using  Option  8) . 


DISPLAY  CONTENTS 

USER  RESPONSE 

COMMENTS 

OPTION? 

9 

ASF  Correction. 

ASF  FOR 

9960W? 

1.5  [ENTER] 

ASF  FOR 

9960Y? 

2.7  [ENTER] 

OPTION? 

1 

Compute  a  fix. 

ITD  FOR 

9960W? 

12153.31  [ENTER] 

ITD  FOR 

9940Y? 

44451.83  [ENTER] 

LAT  = 

44° 15' 26" 

[ENTER] 

LONG  = 

67°  26 ' 26" 

[ENTER] 

OPTION? 

Repeat  with  new  option 

or  press  A  to  quit. 


These  ASF  Corrections  have  been  entered  into  the 
computer.  The  range  of  their  validity  must  be  checked 
with  the  ASF  Correction  tables  and  reentered  if  they 
change.  NOTE:  If  you  are  using  the  ASF  Correction  Tables 
and  if  you  wish  to  calibrate  to  a  benchmark  position, 
you  should  first  enter  the  ASF  Corrections  for  your 
benchmark  and  then  use  the  calibration  Option  7  (see 
Sample  Problem  4). 
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10  REM  LORAN-C  ROUTINE.  REV  07-15-83.  1530  HOURS 
20  N9=15 : REM  N9  =  NO.  OF  MASTER  STATIONS 

30  00=1/298.26 : A0=- 1 : PI=4 . *ATN ( 1 ) :TP=PI+PI :RD=PI/180 :G$ (1) 

=  ""  :GOTO120 

32  F0RC=1T09 :C$=INKEY$ :NEXTC 

33  PRINT : PRINT" Press  any  key  to  continue." 

34  C$= INKEY$ : IFC  $= " "GOTO 3 4 

35  RETURN 

40  X=INT {M0*X+ . 5 )/M0 : RETURN 

50  P=129 . 04398/T- .40758  +  . 64576543  8E-3*T : RETURN 
60  P=2. 7412979/T-. 3277 4624-3 *T: RETURN 
70  C$=INKEY$:IFC$=""GOTO70 
80  C=ASC(C$)  :  CS=CHR$  (C+32  *  (0  90  ) ) 

90  F0RC=1T0LEN (C0$) : IFC$=MID$ (C0 $ , C, 1 ) THENRETURN 
100  NEXTC :GOTO70 

120  CLS : PRINT"1-L0RAN  FIX  6-TWO  PT  HEAD  &  DIST" 

130  PRINT"2-ALT.  SOLUTION  7 -CALIBRATE" 

140  PRINT"3-DEST  LAT/LON  8-NEW  STA.  IDs  " 

150  PRINT"4-HEAD  &  DIST  9-ASF  Correction" 

160  PRINT" 5 -PREDICT  ITDs  A-STOP 

170  PRINT: PRINT"OPTION?" :C0$="123456789A" :GOSUB70 

180 

CLS :ONCGOSUB910, 950, 1010, 1040, 1090, 990, 1200, 190, 1320, 530 :GOTO120 

185  IFG1$<> ""THENRETURN 

190  F0=1 :N=1 : CLS : INPUT" 1st  GRI";I$ 

200  GOSUB3  80  :G0SUB3 90  : IFF0=2GOTO190 

210  F0=1 : N=2 : INPUT "2nd  GRI " ; 1$ :G0SUB3 80 

220  IFA$=I9$THENGOSUB470 :IFF0=1GOTO250 

240  GOSUB390 : IFF0=2GOTO210 

250  Fl=l : F2=l : IFG1 $=G2 $GOTO300 

260  IFP ( 1 , 1 ) =P ( 1 , 2 ) ANDL ( 1 , 1 ) +L ( 1 , 2 ) G0T031 0 

270  F2=-l : IFP ( 1 , 1 ) =P ( 2 , 2 ) ANDL (1,1)+L(2,2) GOTO310 

280  Fl=-1 : IFP(2,1)=P(2,2) ANDL ( 2 , 1 )  +L  ( 2 , 2 ) GOTO310 

290  F2=2 : IFP ( 2 , 1 ) =P(1 , 2) ANDL (2,1)+L(1, 2 ) GOTO310 

300  PRINT"ERROR :  NO  TRIPLET. " :GOSUB32 :GOTO190 

310  PRINT : PRINT"Wor k ing" : F0RI=1T02 : P1=P ( 1 , I ) :Ll=L(l,I) :P2=P(2,I) 
:L2=L (2,1) 

320  GOSUB330 : NEXTI :G(1)=0:G{2)=0: RETURN 
330  GOSUB650 : B ( I ) =S0 :Z(1,I)=Z1:Z(2,I)=Z2 
340  T=212 82 . 3593 *S0 
350  IFT>=537THENGOSUB50 
360  IFT<537THENGOSUB60 
370  T (I) =T+P: RETURN 

380  L=LEN ( 1$) : A$=LEFT$ ( 1$ , L-l ) :B$=RIGHT$ (I$,l) :B=ASC(B$) :B$=CHR$( 
B+32  * ( B>90 ) ) : RETURN 
390  N8=l: RESTORE 
400  READI 9 $ , N0 , P0 , L0 

410  FORI=lTON0 : READW$ (I) ,D9(I) ,Pl(I) ,Ll (I) :NEXTI 

420  IFI9$OA$GOTO450 

430  GOSUB470 :IFF0=2GOTO460 

440  RETURN 
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1 


450  N8=N8+1 : 1FN8<=N9GOTO400 

460  PRINTI $ ; "  IS  NOT  CATALOGED" :F0=2 :GOSUB32 :RETURN 

470  FORI =1 TON 0 : IFW$ ( I ) =B$GOTO490 

480  NEXTI :F0=2: RETURN 

490  IFN=1THENG1 $=I$:G$(1)=I$ 

500  IFN=2THENG2$=I$ :G$ (2) =1$ 

510  D ( N) =D9 ( I ) :X=P0:GOSUB1370:P(1,N)=X:X=L0:GOSUB1360:L(1,N)=V*RD 
520  X*P1(I) :GOSUB1370 : P ( 2 , N) =X :X=L1 ( I ) :GOSUB1360 : L ( 2 , N) =V* 

RD: RETURN 
530  END 

540  REM  DIRECT  SOLUTION 

550  Z8=SIN(Z1) :Z9=COS(Zl) :P8=SIN(P1) :P9=COS(Pl) :M=-Z8*P9 :C1=C0* 
M:C2=C0*(l-M*M)/4 

560  D=(l-C2) *(1-C2-C1*M) : P=C2* ( l+Cl*M/2 )/D :N=P9*Z9 

570  YY=N : XX=P8 :GOSUBl260 : S1=AN :D0=S0/D:U=2*( S1-D0 ) :W=l-2*P*COS (U) 

:V=COS (U+D0) 

580  X=C2*C2*SIN(D0) *COS (D0* (2*V*V-1) ) : Y=2*P*V*W*SIN(D0) 

590  S2=D0+X-Y:S8=SIN(S2) :S9=COS(S2) :K=SQR (M*M+ (N*S9-P8*S8) "2) 

600  P2=ATN( (P8*S9+N*S8)/K) 

610  YY=-S8*Z8:XX=P9*S9-P8*S8*Z9:GOSUB1260:S3=AN 
620  H=Cl* ( 1-C2 ) *S2-C1*C2*S8*C0S (S1+S1-S2 ) :L2=L1+S3-H 
630  YY=-M:XX=- (N*S9-P8*S8) :GOSUB1260 : Z2=AN:RETURN 
640  REM  REVERSE  SOLN 

650  L3=L2-Ll:P3=(P2-Pl)/2:P4=(Pl+P2)/2 

660  P6=SIN(P3) :P7=COS(P3) :P8=SIN(P4) :P9=COS(P4) 

670  H=P7*P7-P8*P8 :L=P6*P6+H*SIN (L3/2) *2 :XX=SQR(L) :GOSUB1340 :D0=2* 
AN 

680  U=2*P8*P8*P7*P7/(1-L) :V=2*P6*P6*P9*P9/L:X=U+V: Y=U-V:T=D0/SIN( 
D0 ) : D=4*T*T 

690  E=2*COS(D0) : A=D*E: C=T- (A-E)/2:Nl=X* (A+C*X) :B=D+D :N2=Y* (B+E*Y) 
:N3=D*X*Y 

700  D2=C0*C0* (Nl-N2+N3)/64 :D1=C0* (T*X-Y)/ 4 :S0= (T-D1+D2) *SIN(D0) 
710  M=32*T-(20*T-A)*X-(B+4)*Y 

720  F=Y+Y-E*(4-X) :G=C0* (T/2+C0*M/6 4 ) :Q=-F*G*TAN ( L3 ) /4 
730  L4= (L3+Q) / 2 :L8=SIN (L4 ) :L9=COS(L4) 

740  YY=P6*L9 :XX=P9*L8 :GOSUBl260 :Tl=AN : YY=-P7*L9 :XX=P8* 
L8:GOSUB1260 :T2=AN 

750  M0=TP:X=T1+T2:GOSUB1250 :Z1=X:X=T1-T2:GOSUB1250 :Z2=X: RETURN 
760  REM  FIXING  ROUTINE 

770  Al=Fl *S IN ( A ( 1 ) ) :Bl=COS£A(l) )-COS(B(l) ) :Cl=SIN (B ( 1 ) ) 

780  A2=F2*SIN(A(2) ) : B2=COS ( A ( 2) ) -COS (B ( 2 ) ) :C2=SIN(B(2) ) 

790  E1=Z{1,1) :IFF1=-1THENE1=Z(2,1) 

800  E2=Z(1,2) : IFF2=-1THENE2=Z ( 2 , 2 ) 

810  C=Bl*C2*COS ( E2 ) -B2*Cl*COS ( El ) :S=Bl*C2*SIN(E2) -B2*C1*SIN(E1) 
820  K=B2*A1-B1*A2:R=SQR(C*C+S*S) : YY=S : XX=C :GOSUB1260 :G=AN 
830  XX=K/R:GOSUB1350 : Z=G+A0*AN : YY=B2 : XX=C2*COS ( Z-E2 ) + 
A2:GOSUB1260:S0=AN 
840  IFF2=1THENP1=P(1,2) :Ll=L(l,2) 

850  IFF2=-1THENP1=P (2,2) :L1=L(2,2) 

860  Zl=Z :GOSUB550 : P0=P2 :L0=L2 : P=ATN (TAN (P0 ) / ( 1-C0 ) ) 
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870  P=P/RD:X=L0/RD:M0=360 :GOSUB1250 :L=X:lFL>180THENL=L-360 

880  X=P :GOSUB12  80  : P$=C$ :X=L :GOSUB12  80 

890  PRINT: PRINT"LAT  =  " ;P$ :PRINT"LONG  =  " ;  C$ : RETURN 

900  REM  OPT  1 

910  GOSUB1 85 : CLS : F0RI=1T02 

920  PRINT" ITD  FOR  "  ;G§  ( I ) ; : INPUTA: A=A+G ( I ) -D ( I ) -T ( I ) : IFABS ( A) <T ( I ) 
GOTO940 

930  PRINT"  ITD  NOT  VALID  FOR  "  ;G $  ( I )  :G0SUB32  .-GOTO920 
940  A ( I ) =A/21295 .8736 : NEXTI :GOSUB770 :GOSUB32 : RETURN 
945  REM  OPT  2 

950  IFA0=1THENA0=-1 :GOTO970 
960  A0=1 

970  GOSUB770 :GOSUB32 :RETURN 
980  REM  OPT  6 

990  CLS : INPUT"ORIGIN  LAT  dd . mmss " ; P : INPUT"ORIGIN  LONG 

ddd.mmss";L 

1000  X=P :GOSUB1370 : P0=X:X=L:GOSUB1360 :L0=V* 

RD:GOSUB1010 :GOSUB1040 :RETURN 

1010  CLS : INPUT"DEST  LAT  dd .mmss” ; P : INPUT"DEST  LONG  ddd.nunss";L 

1020  X=P:GOSUB1370 :P5=X:X=L:GOSUB1360 :L5=V*RD:RETURN 
1030  REM  OPT  4 

1040  Pl=P0 :L1=L0 : P2=P5 :L2=L5 :GOSUB650 

1050  M0=360 : X=Zl/RD :GOSUB1250 :GOSUB1280 

1060  CLS : PRINT "HEADING  =  " ; C$ :M0=100 : X=3443 . 917  * 

S0:GOSUB40 :PRINT"DISTANCE  =  ";X;n  n.  mi." 

1070  GOSUB32: RETURN 
1080  REM  OPT  5 

1090  GOSUBl 85 :GOSUB117 0: PRINT :F0RK=1T02:I9=T(K) +D(K) 

1100  P2=P (2 , K) :L2=L ( 2  ,K) :GOSUB650 : 1=3 :GOSUB340 : I9=I9+T (3 ) 

1110  P2=P (1,K) :L2=L(1,K) :GOSUB650 : 1=3 :GOSUB340 : I9=I9-T(3) 

1120  M0=100 :X=I9 :GOSUB40 

1130  PRINT"ITD  FOR  ";G$(K);"  =  ";X:NEXTK 

1140  PRINT: PRlNT"New  lat/long  or  Return  to  menu?" :C0$="NR" :GOSUB70 

1150  IFC=1GOTO1090 
1160  RETURN 

1170  CLS : INPUT"LAT  dd . mmss " ; PI : INPUT"LONG  ddd.mmss";Ll 
1180  X=Pl : GOSUBl 370 : Pl=X :X=Ll : GOSUBl 360 :Ll=V*RD: RETURN 
1190  REM  OPT  7 

1200  GOSUBl 85 :GOSUB117 0 : F0RK=1T02 : I$=G1 $ : IFK=2THENI$=G2 $ 

1210  CLS : PRINT" ITD  FOR  ";I$;:INPUT  19 : I9=I9-D(K) 

1220  P2=P ( 2 , K) : L2=L { 2 , K) :GOSUB650 : 1=3 :GOSUB340 : I9=I9-T(3) 

1230  P2=P(1,K) :L2=L(1,K) :GOSUB650 : 1=3 :GOSUB340 : T (K) =I9+T ( 3) +G (K) 
1240  NEXTK : RETURN 

1250  X=X-M0*INT (X/M0 ) :REM  MOD  FCTN 

1260  AN=ATN(YY/(XX-1E-9*(XX=0)))-PI*(XX<0) :RETURN:REM  QATN 

1270  X=ATN( (1-C0) *TAN(X) ): RETURN 

1280  C$="  " : IFX<0THENC$="-" :X=-X 

1290  X=X+l/7 200 : X0  =  INT (X) : C$=C$+STR$ (X0 ) +"  " 

1300  X=60* (X-X0) :X0=INT(X) : X$=STR$ (100 +X0 ) : C$=C$+RIGHT$ (X$r2) +"  " 
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1310  X=60* (X-X0) : X0=INT (X) :X$=STR$ (100+X0) : C$=C$+RIGHT$ (X$, 2 ) +" 

" : RETURN 

1320  GOSUB1 85 :CLS: PRINT" ASF  FOR  " ;G$ (1) ; : INPUTG(l) 

1330  PRINT"ASF  FOR  " ;G$ ( 2 ) ; : INPUTG ( 2 ) : RETURN 
1340  ZZ=SQR(1-XX*XX) : AN=ATN (XX/ ( Z Z-lE-9* ( ZZ=0 ) ) ) : RETURN: REM  ASIN 
1350  AN=ATN ( SQR{ 1-XX*XX) / ( XX-lE-9* ( XX=0) ) ) -PI* (XX<0) : RETURN: REM 
ACOS 

1360  S=SGN(X) :X=ABS(X) :  H=INT (X) :M0=1 :GOSUB1250 : V=X* 

100 : X=V:GOSUB1250 

1365  V=S*( (100*X/60+INT(V) )/60+H) : RETURN 
1370  GOSUB1360  : X=V*RD :G0SUB127  0 : RETURN 
5000  DATA 

"4990 ",2,16. 4443 95 ,16 9. 30312 , "X" , 11000 , 20 . 144916 , 155 . 53097 
5010  DATA  "Y", 29000, 28. 234177, 178. 17302 
5020  DATA 

"5930 ",2,46. 48271 99, 67. 553 771 3, "X", 11000, 41. 1511 93, 6 9. 583909 
5030  DATA  "Y", 25000, 46. 46463218, 53. 102816 

5040  DATA  "5970 ",3,36. 11057 97, -129. 2027 27 9, "W", 11000, 42. 4437104, - 
143.4309245 

5050  DATA  "X", 31000, 35. 0223 871, -126 .32267 4, "Z", 42000, 263624975, - 

128.0856445 

5060  DATA 

"5990 ",3,51. 57 587 8, 122 .220224  , "X ", 11000 , 55 . 26 20 851 , 131 . 151 9648 
5070  DATA 

"Y", 27000, 47. 034799, 11 9. 443 953, "Z", 41000, 50. 3629731, 127. 2129043 
5080  DATA 

"7 930 ",3,59. 5917 27, 45. 1027 47, "W", 11000, 64. 542658, 23. 55217 5 
5090  DATA 

"X ",  21000, 62. 17 5964, 7. 0426 53 8, "Z", 43000, 46. 46321 8, 53. 102 816 

5100  DATA  "*7930 ",3,24 .1707888,-153.5853232, "X", 11000, 42. 4437104, 

143.4309245 

5110  DATA  " Y", 30000, 26. 3624975, -128. 0856 445, "Z", 49000, 9. 32457 89,- 

138.095497 

5120  DATA 

"7 960 ",2,63. 1942 814, 142. 48319, "X", 11000, 57. 262021, 152. 2211225 
5130  DATA  "Y", 26000, 55. 2620851, 131. 1519648 

5140  DATA  "7970", 4, 62. 175964, 7. 0426538, "W", 26000, 54. 4829872, - 
8.1736312 

5150  DATA  "X", 11000, 68. 3 80 615,- 
14.2747, "Y", 46000, 64. 5426 58, 23. 55217 5 
5160  DATA  "Z", 60000, 70. 545261, 8.435869 
5170  DATA 

"7 980 ",4,30. 593 874, 85. 1009305 ,"W", 11000, 30. 433301 8, 90. 49436 
5180  DATA 

"X ",23000, 26. 3155006, 97. 5000093, "Y", 43000, 27. 015 8393, 80. 06 53429 
5190  DATA  "Z", 59000, 34. 0346081, 77. 5446654 

5200  DATA  "7 990  ",  3, 3 8. 52205 87, -16. 43061 59, "X", 11000, 35. 31207 87,- 
12.3130245 
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5210  DATA  "Y", 29000,40. 582095, -27. 520152, "Z", 47000, 42. 0336515,  - 

3.1215512 

5220  DATA 

"8970 ",3,39. 5107 54 ,87. 291214, "W", 11000, 30. 593 874, 85.1009305 
5230  DATA 

"X", 28000, 42. 4250603, 76. 4933 862, "Y", 44000, 48. 3649844 ,94.3318469 
5240  DATA 

"9940  ",  3, 39. 3306621, 11 8. 495637, "W", 11000, 47. 0347 99, 11 9. 443 953 
5250  DATA 

"X", 27000, 3 8. 4656 99, 122. 2944529, "Y", 40000, 35. 191 81 8, 114. 4817435 
5270  DATA 

"9960 ",4,42. 4250603, 76. 4933 862, "W", 11000, 46. 48271 99, 67. 5537713 
5280  DATA 

"X", 25000, 41. 1511 93, 6 9. 583909, "Y", 39000, 34. 0346081, 77. 5446654 
5290  DATA  "Z ",  54000 , 3 9 . 5107 54 , 87 . 291214 

5300  DATA  "9970 ",4,24. 4803597, -141. 1930303, "W", 11000, 24. 1707 888, 
153.5853232 

5310  DATA  "X", 30000, 42. 4437104, -143. 4309245, "Y", 55000, 26. 3624975 
128.0856445 

5320  DATA  "Z ", 75000 , 9 . 32457 89 , -13 8 . 095497 

5330  DATA  "9990  ", 3 , 57 . 09126 5 , 170 . 15067 89 , "X" , 11000 , 32 . 494404 , - 

173.1048974 

5340  DATA 

"Y", 29000, 65. 1440306, 166. 531255, "Z", 43000, 57. 262021, 152. 2211225 


V.  MEMORY  REQUIREMENTS 


Memory  (bytes) 
for : 

HP-75C 

PC-1500 
(TRS-80  PC-2) 

TRS- 80 
MODEL  100 

Program 

7747 

7189 

7220 

Variables 

4920 

7 

4786 

TOTAL 

12667 

? 

12006 
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5.  The  following  tables  of  ASF  Corrections  are  available  from  the 
Defense  Mapping  Agency  Office  of  Distribution  Services, 
Washington,  D.C.  20315: 

DMA 

Stock  Number  Title 


LCPUB2211100C 

LCPUB2211200C 

LCPUB2211300C 

LCPUB2211400C 

LCPUB2212100C 

LCPUB2212200C 

LCPUB2212300C 

LCPUB2212400C 


East  Coast  Canada  (Pairs  5930-X,Y) 
Northeast  USA  (Pairs  9960-W,X,Y, Z) 
Great  Lakes  (Pairs  8970-X,Y,Z) 
Southeast  USA  (Pairs  7980-W,X,Y, Z) 
West  Coast  of  USA  (Pairs  9940-W,X,Y) 
West  Coast  Canada  (Pairs  5990-X,Y,Z) 
Gulf  of  Alaska  (Pairs  7960-X,Y) 

North  Pacific  (Pairs  9990-x,Y,Z) 
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Appendix:  LORAN-C  STATION  DATA 


The  following  list  contains  the  pertinent  parameters  for  each 
Loran-C  station  pair.  This  list  was  compiled  from  the  data  in 
Reference  4.  Each  column  contains  the  following  information: 

1.  The  Loran-C  station  pair  designator. 

2.  The  coding  delay. 

3.  The  master  station  latitude. 

4.  The  master  station  longitude. 

5.  The  slave  station  latitude. 

6.  The  slave  station  longitude. 

In  this  list,  positive  longitudes  are  West,  negative 
longitudes  are  East,  positive  latitudes  are  North  and  negative 
latitudes  are  South.  In  columns  3  through  6  the  latitudes  and 
longitudes  appear  to  be  in  decimal  form,  but  the  actual  format  is 
DDD.MMSSFFF  where 

DDD  designates  degrees, 

MM  designates  minutes, 

SS  designates  seconds,  and 

FFF  designates  thousandths  of  seconds. 
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LORAN-C  STATIONS 


fiai  on  MS  LAT  MS  LON  SS-LQH 

4990X  11000  16.4443950  169.3031200  20.1449160  155.5309700 

4990 Y  29000  16.4443950  169.3031200  28.2341770  178.1730200 

5930X  11000  46.4827199  067.5537713  41.1511930  069.5839090 

5930Y  25000  46.4827199  067.5537713  46.4632180  053.1028160 

5970W  11000  36.1105797  -129.2027279  42.4437104  -143.4309245 

5970X  31000  36.1105797  -129.2027279  35.0223871  -126.3226741 

5970Z  42000  36.1105797  -129.2027279  26.3624975  -128.0856445 

5990X  11000  51.5758780  122.2202240  55.2620851  131.1519648 

5990 Y  27000  51.5758780  122.2202240  47.0347990  119.4439530 

5990  Z  41000  51.57587  80  122.2202240  50.3629731  127.2129043 

7930W  11000  59.5917270  045.1027470  64.5426580  023.5521750 

7930X  21000  59.5917270  045.1027470  62.1759640  007.0426538 

7930Z  43000  59.5917270  045.1027470  46.4632180  053.1028160 

*7 930X  11000  24.1707888  -153.5853232  42.4437104  -143.4309245 

*7  930Y  30000  24.1707888  -153.5853232  26.3624975  -128.0856445 

*7  930Z  49000  24.1707  888  -153.5853232  09.3245789  -138.0954970 

7960X  11000  63.1942814  142.4831900  57.2620210  152.2211225 

7960Y  26000  63.1942814  142.4831900  55.2620851  131.1519648 

7970W  26000  62.1759640  +007.0426538  54.4829872  -008.1736312 

7970X  11000  62.1759640  +007.0426538  68.3806150  -014.2747000 

7970Y  46000  62.1759640  +007.0426538  64.5426580  +023.5521750 

7970Z  60000  62.1759640  +007.0426538  70.5452610  +008.4358690 

7980W  11000  30.5938740  085.1009305  30.4333018  090.4943600 

7980X  23000  30.5938740  085.1009305  26.3155006  097.5000093 

7980Y  43000  30.5938740  085.1009305  27.0158393  080.0653429 

7980Z  59000  30.5938740  085.1009305  34.0346081  077.5446654 

7990X  11000  38.5220587  -016.4306159  35.3120787  -012.3130245 

7  990 Y  29000  38.5220587  -016.4306159  40.5820950  -027.5201520 

7  990  Z  47000  38.5220587  -016.4306159  42.0336515  -003.1215512 

8970W  11000  39.5107540  087.2912140  30.5938740  085.1009305 

8970X  28000  39.5107540  087.2912140  42.4250603  076.4933862 

8970Y  44000  39.5107540  087.2912140  48.3649844  094.3318469 

9940W  11000  39.3306621  118.4956370  47.0347990  119.4439530 

9940X  27000  39.3306621  118.4956370  38.4656990  122.2944529 

9940 Y  40000  39.3306621  118.4956370  35.1918180  114.4817435 

9960W  11000  42.4250603  076.4933862  46.4827199  067.5537713 

9960X  25000  42.4250603  076.4933862  41.1511930  069.5839090 

9960Y  39000  42.4250603  076.4933862  34.0346081  077.5446654 

9960Z  54000  42.4250603  076.4933862  39.5107540  087.2912140 

9970W  11000  24.4803597  -141.1930303  24.1707888  -153.5853232 

9970X  30000  24.4803597  -141.1930303  42.4437104  -143.4309245 

9970Y  55000  24.4803597  -141.1930303  26.3624975  -128.0856445 

9970Z  75000  24.4803597  -141.1930303  09.3245789  -138.0954970 

9990X  11000  57.0912265  +170.1506789  52.4944040  -173.1048974 

9990Y  29000  57.0912265  +170.1506789  65.1440306  +166.5312550 

9990Z  43000  57.0912265  +170.1506789  57.2620210  +152.2211225 

EAST  AND  SOUTH  ARE  MINUS 
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